вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов а и б

Длины*

var a,b,S,P:real; begin writeln('Введите длинны катетов'); readln (a,b); S:=a*b/2; P:=sqrt(sqr(a)+sqr(b))+a+b; writeln('S=',s); writeln('P=',p); end.