Дан треугольник с основанием a и высотой h. найдите площадь. ( написать программу )

Var a,h,s:real;
begin
Write('Основание треугольника: '); read(a);
Write('Высота треугольника: '); read(h);
s:=(a*h)/2;
Writeln('Площадь равна ',s);
end.