Составьте программу вычисления площади треугольника с основанием a и высотой h. Значения a и h введите с клавиатуры.
Program z6; var s,a,h:real; begin writeln('Введите a,h'); readln(a,h); s:=(a*h)/2; writeln(s:4:2); end.