var s:string; i:Integer; begin Randomize; for i := 0 to 7 do begin ShowMessage(IntToStr(Random(90000000)+10000000)); end; end;
var s:string; i:Integer; res: string; begin Randomize; s := '1234567890'; for i := 0 to 7 do begin res := res + s[Random(9)+1]; end; ShowMessage(res); end;
var
s:string;
i:Integer;
begin
Randomize;
for i := 0 to 7 do
begin
ShowMessage(IntToStr(Random(90000000)+10000000));
end;
end;
s:string;
i:Integer;
res: string;
begin
Randomize;
s := '1234567890';
for i := 0 to 7 do
begin
res := res + s[Random(9)+1];
end;
ShowMessage(res);
end;