Нельзя преобразовать тип 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 lt;gt; 0 then
        k := s / 2 + 1
    else
        k := s / 2;
    writeln(k)
end.