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

uses crt;
varb,h,S:real;
begin
writeln('Поиск площади  треугольника по стороне и высоте');
writeln(); 
write('Введите длину стороны в основании треугольника - ');   
readln(b);  
 writeln();   
write('Введи высоту треугольника - ');   
 readln(h);     
writeln();     
S:=(b*h)/2;       
writeln('Ответ: ',S);
end.