С клавиатуры вводится 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.