(Паскль)Составьте программу выполняющую расчет площади треугольника

program sfsdsd;var s,a,h:real;beginwriteln ('Введите длину основания');readln (a);writeln ('Введите длину высоты');readln (h);s:=(a*h)/2;writeln ('Площадь треугольника равна : ',s);end.