Объяснение:
var
a,b:real;
begin
writeln('Вычисление площади треугольника ');
writeln('Введите исходные данные: ');
write('Основание (см) : '); readln(a);
write('Высота (см) : '); readln(b);
write('S треуг. равна: ', a/b,' квадр. метра');
readkey
end.
