По известным двум катетам A и B прямоугольного треугольника найдите гипотенузу и площадь через программу паскаль.

var a, b, c, s: real;
begin
write('Введите a, b >>');
readln(a, b);
c:=sqrt(sqr(a)+sqr(b));
writeln('c = ', c);
s:=a*b/2;
writeln('s = ', s);
end.