Линейные алгоритмы: вычислить площадь прямоугольного треугольника по длинам двух катетов а и b.

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