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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.