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

Question

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

Answer 1

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