1 задача
var a, b: integer;
          с: real;
begin
write ('Введите длину первого катета: ');
readln (a);
write ('Введите длину второго катета: ');
readln (b);
c := round (sqrt(a*a + b*b));
write ('Гипотенуза примерно равна ', c)
end.

2 задача
var r: integer;
     S: real;
begin
write ('Введите радиус окружности: ');
readln (r);
S := round (pi*r*r);
write ('Площадь окружности примерно равна: ', S)
end.

3 задача
var x, a, y: integer;
begin
write ('Введите значение переменной x: ');
readln (x);
write ('Введите значение переменной a: ');
readln (a);
if (x < a) then begin
  y := x*x + a*a;
  write ('Значение функции равно ', y)
end;
if (x >= a) then begin
  y := sqrt(x - a);
  writeln ('Значение функции равно ', y)
end;
end.

Правда, я все проги полностью написала, но, думаю, лишним не будет :)