program Project1;

uses Crt;

var
   cnt, i: Integer;

begin
     cnt := 3;
     WriteLn(cnt);
     for i := 0 to cnt do;
     begin
       WriteLn(i);
     end;
     ReadKey;
end.