Напишите программу вычисления периметра и площади прямоугольного треугольника по заданным длинам двух катетов a и b.На языке Паскаль

var a,b,c,s,p:real;
begin
Write('Введите a и b:');
Read(a,b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
s:=(a/2)*b;
Writeln('Периметр: ',p);
Write('Площадь: ',s);
End.