Напишите программу, которая вычисляет площадь треугольника по значениям высоты и длины стороны, перпендикулярной к высоте треугольника

program ax;

uses crt;

var s,h,a:real;

begin

clrscr;

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

wriyeln('основание(см)');

readln(a);

writeln('высота(см)');

readln(h);

s:=0.5*a*h;

writeln('s= ',s);

readkey;

end.

Объяснение: