Нельзя преобразовать тип 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.

program chees;var    m, n, s: integer;     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.