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