Program statistika;
uses crt;
var m,l,r,i : integer;
    zn : char;
    fr: text;
    Cesta : string;
    radek: string;

begin
clrscr;

randomize;
rewrite(fr);
for i:=0 to 1000 do
begin
r:=random(2000);
writeln(r);
end;

readln;
end.