Найдите площадь треугольника используя одну из процедур

ERUDIT

Дан треугольник abc, с высотой BL и сторон AC. Найдите площадь треугольника используя одно из процедур.
1 ответ

ERUDIT

procedure plosh(a,h:real;var s:real);
begin
s:=a*h/2
end;
var ac,bl,s:real;
begin
writeln('Введите длину основания АС и длину высоты BL');
readln(ac,bl);
plosh(ac,bl,s);
write('Площадь=',s:0:2)
end.