Question

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

Answer 1

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.