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