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

Var 

    a, b, c, p, s : real;

Begin

   writeln('Введите катет а: ');

   read(a);

   writeln('Введите катет b: ');

   read(b);

   s:=(a*b)/2;

   writeln('Площадь треугольника =', s);

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

   p:= a+ b + c;

   writeln('Периметр треугольника =', p);  

end.