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

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.