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

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.