Помогите решить!!! Паскаль!

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 lt; a) then begin
  y := x*x + a*a;
  write ('Значение функции одинаково ', y)
end;
if (x gt;= a) then begin
  y := sqrt(x - a);
  writeln ('Значение функции одинаково ', y)
end;
end.

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