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

Program prog;
Uses crt;

var a,h: real;

begin
clrscr;

write('a = ');
readln(a);
write('h = ');
readln(h);

writeln;
writeln('S = ', (0.5*a*h):0:3);
end.