Writeln('Enter triangle side: ');
Readln(a); //вводим сторону
Writeln('Enter triangle height: ');
Readln(h); //вводим высоту
S:=(a*h)/2; //считаем площадь по формуле
Write('Area of a triangle is:');
Write(S:10:5); //выводим площадь, вывод форматируем, не больше 10 знаков целого числа и 5 для дробной части
end.