Даны a,b — катеты прямоугольного треугольника.Найти его гипотенузу и площадь — Pascal(Паскаль)

uses crt;
var a, b, c, s, pp: real;
begin
  clrscr;
  readln(a);readln(b);
  c := sqrt(sqr(a) + sqr(b));
  writeln('c =', c);
  pp := (a + b + c)/2;
  s := sqrt(pp*(pp - a) * (pp - b) * (pp - c));
  writeln('s =', s);
  readkey;
end.