Составьте программу вычисления площади треугольникк с основанием a и b и высотой h. Значение a и h введите с клавиатуры.

Program treugolnik; Uses crt; var a,h,s: real; Begin clrscr;       write('Основание a = ');       readln(a);       write('Высота h = ');       readln(h);       writeln;       if (a<=0) or (h<=0) then       writeln('Значения не могут быть отрицательными или равняться нулю')       else             begin       s:=(1/2)*a*h;       writeln('Площадь треугольника s = ',s);       end;       readln; End.