Составьте программу вычисления площади треугольника с основанием a и высотой 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.