program test;

var 
  I, Len: Integer;
begin
  Len := 10;
  
  for I := 0 To Len - 1 Do  //len - 1.
    writeln(I);
end.