С клавиатуры вводится 2 числа длинны катетов прямоугольного треугольника, вычислить перемитр и площадь треугольника?

Var katOne, katTwo : integer;

Begin

Write ('Введите катеты') ;

Readln (katOne, katTwo) ;

if (katOne > 0) and (katTwo > 0) then

writeln ('Площадь = ', katOne*katTwo/2, 'Периметр = ', katOne + katTwo + sqrt (katOne*katOne + katTwo*katTwo)

else writeln ('Error')

Readln ()

End.