Составьте программу для вычисления площади прямоугольного треугольника по его катетам a и b
Var S, A, B: real; begin write('Введите A: '); readln(A); write('Введите B: '); readln(B); S := 1/2 * a * b; writeln('Площадь = ', S); end.