По 2 катитам триугольника вычеслите его периметр и площадь (информатика 9класс)

Var a,b,s,p:real;
begin
writeln('Введите катеты');
readln(a,b);
s:=a*b*0.5;
p:=a+b+sqrt(sqr(a)+sqr(b));
writeln('Площадь= ',s,' Периметр= ',p);
end.