В каком из операторов цикла допущена ошибка?
а) while a>b do x:=x+1
a:=a-1;

б) repeat
x:=x+1;
a:=a-1;

в) for i:=1 to n do s:=s*i;

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

var a: integer; beginreadln(a); write (a div 10); end.

2000 знаков (но точно не уверен) 

необходимо (но не достаточно).