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 что делать?
