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

program programm; var  a, b, c, S: real; begin  write('Введите величину первого катета ');  read(a);  write('Введите величину второго катета ');  read(b);  c := 0.5;    S := c * a * b;  writeln('Площадь прямоугольного треугольника=', S);end.