Program Ploshad;
Uses crt;

var h,b: real;

Begin clrscr;
      write('Введите высоту h = ');
      readln(h);
      write('Введите основание b = ');
      readln(b);
      writeln;
      
      if (h<=0) or (b<=0) then
      write('Значения не могут быть отрицательными или равняться нулю.')
      else
      write('Площадь треугольника  = ', 0.5*b*h:0:3);

End.