Паскаль. Составить программу вычисления площади треугольника S=1/2ah

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