Даны длины катетов и площадь, вычислить периметр и площадь прямоугольного треугольника.

Проверь в Pascal, если что - напиши
var a,b:integer;
c,p,s:real;Beginreadln(a,b);c:=sqrt(a*a+b*b);
p:=a+b+c;s:=a*b/2;
writeln(s,'-площадь, периметр',p);
End.