Нельзя преобразовать тип real к integer program chees;
var m,n,s,k :real;
begin
readln(m);
readln(n);
s:=m*n;
If s mod 2<>0 then k := s /2+1
else k:=s/2;
writeln(k)
end.
var m,n,s,k :real;
begin
readln(m);
readln(n);
s:=m*n;
If s mod 2<>0 then k := s /2+1
else k:=s/2;
writeln(k)
end.