Составьте программу для вычисления площади прямоугольного треугольника по его катетам a и b

Var S, A, B: real;
begin
write('Введите A: '); readln(A);
write('Введите B: '); readln(B);
S := 1/2 * a * b;
writeln('Площадь = ', S);
end.