Вычислите Периметр и Площадь прямоугольно треугольника по заданным длинам 2-х катетов (по теореме Пифагора) В Паскале*

var a,b,c,S,P:real;

begin

 writeln('Введите значения  a и b:');

 readln(a,b);

 S:=a*b/2;

 c:=sqrt(a*a+b*b);

 P:=a+b+c;

 writeln('Периметр равен ',P);

 writeln('Площадь равняется ',S);

end.