编辑代码

var
  i:longint;
begin
  for i:=1 to 1000 do
  writeln (random(100),' ');
  writeln (i);
end.