Как написать грограмму вычисления площади прямоугольного триугольника если даны два катита a и b (s=a*b/2).

//Язык Pascal

Program Test;

Var A, B, S: real;

Begin

Write('Введите первый катет: ');
Readln(A);
Writeln();
Write('Введите второй катет: ');
Readln(B);
Writeln();

S := A * B / 2;

Writeln('S = ', S);

End.