ShirokovP

Verified answer

Var h,b,s:real;

begin
write('Введите основание = ');
readln(b);
write('Введите высоту = ');
readln(h);
s:=0.5*b*h;
writeln('Площадь треугольника = ',s:6:2);
end.