Ответ:

var

a,b:real;

begin

writeln('Вычисление площади треугольника ');

writeln('Введите исходные данные: ');

write('Основание (см) : '); readln(a);

write('Высота (см) : '); readln(b);

write('S треуг. равна: ', a/b,' квадр. метра');

readkey

end.

Объяснение: