Помогите с задачками в паскале. Даны три положительных числа а, в, с. Проверить будут ли они сторонами треугольника. Если да то вычислить площадь этого треугольника. Даны два действительных положительных числа х и у. Арифметические действия над числами пронумерованы (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление). Составить программу, которая по выведенному номеру выполняет то или иное действие над числами.

Program task1;

var a, b, c, p, s : real;

begin

readln (a, b, c) ; if (a + b > c) and (a + c > b) and (b + c > a) then begin writeln ('Могут быть сторонами треугольника') ; p: = (a + b + c) / 2; s: = sqrt (p * (p - a) * (p - b) * (p - c)) ; writeln ('Площадь равна ', s) ; end else writeln ('Не могут быть сторонами треугольника') ;

end.

program task2;

var a, b, c : real; d : integer;

begin

write ('Введите числа: ') ; readln (a, b) ; write ('Введите номер действия: ') ; readln (d) ; case d of 1: c: = a + b; 2: c: = a - b; 3: c: = a * b; 4: c: = a / b; end; writeln (c) ;

end.