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

program raf105;

var

 a,b: integer;

 S: real;

begin

 write('Введите 2 числа (длины катетов): ');

 readln(a,b);

 S:= (a*b)/2;

 writeln('Площадь: ',S);

end.