var a, h, s: real; // здесь: a — основание треугольника, h — высота треугольника, s — площадь треугольникаbeginwrite(\'Введите длину основания треугольника — \');readln(a);write(\'Введите длину высоты, проведенной к данной стороне треугольника — \');readln(h);s:=(1/2)*a*h;writeln(\'Площадь данного треугольника равна \',s);end.