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

Спасибо большое!!:)

Var katOne, katTwo   :   integer;BeginWrite('Введите катеты');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.