Program Z1;
var a,b,c,k: integer ;
begin;
read;
k:=1;
while (a>0) or (b>0) do;
begin;
b:=b*2;
a:=a-b/2;
if a<=0 then wrileln('Чёрт')
else begin;
b:=b-c;
a:=a+c;
end;
if b<0 then wrileln('Мужик')
else k:=k+1;
end;
writeln(k=k)
end.

Program1.pas(9) : Нельзя преобразовать тип real к integer
Что делать?