Паскаль. составить программу вычисления площади треугольника s=1/2ah

Program pl;
var a,h,s:real;
begin
writeln ('введите длину стороны треугольника а');
readln (a);
writeln ('введите длину высоты треуг. h');
readln (h);
s:=1/2*a*h;
writeln('площадь треугольника с заданными параметрами=',s,' кв.ед.');
end.