Составьте программу вычисления площади треугольникк с основанием 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
      writeln(Значения не могут быть отрицательными или равняться нулю)
      else
     
      begin
      s:=(1/2)*a*h;
      writeln(Площадь треугольника s = ,s);
      end;
     
readln;
End.