Даны катеты прямоугольного треугольника.Найдите гепотенузу и площадь

Паскаль

uses crt;
var

a,b,c,s:real;
begin
read(a,b);
c:=sqrt(sqr(a)+sqr(b));
writeln(‘c=’,c);
s:=(a*b)/2;
writeln(‘s=’,s);
end.