编辑代码

program Hello;
var
  i:integer;
begin
  for i:=1 to 100 do;
  writeln (random(100),' ');
  writeln (i);
end.