Вычислить периметр и площадь прямоугольного треугольника по длинам а и b двух катетов — Pascal(Паскаль)

uses crt; 
var
   a,b,c,p,s:real;
begin
clrscr;
writeln('Введите значение катетов:');
readln(a,b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
s:=a*b/2;
writeln('Периметр=',p:0:2,'  Площадь=',s:0:2);
readln
end.