Pascal-ban "5 szám-generátor"?

program tombok_hasznalata;

uses

crt;

var

i, szam: byte;

begin

randomize;

for i:=1 to 5 do

begin

szam:=random(51)+50;

writeln(szam,' ');

end;

readln;

end.

Ez asszem 1 és 51 között randomol. Randomot sose vágtam :/

Hupsz kicsit kusza lett:D Bocsi ~.~

program lotto;

uses crt;

var

i, szam: byte;

begin

randomize;

for i:=1 to 5 do

begin

szam:=random(51)+50;

writeln(szam,' ');

end;

readln;

end.

program lotto;

var

lehetoseg : array [1..90] of byte;

huzott,i : byte;

begin

randomize;

for i:=1 to 90 do

lehetoseg[i]:=i;

i:=1;

while i<=5 do

begin

huzott:=random(90);

if lehetoseg[huzott]<>0 then

begin

writeln(huzott);

inc(i);

lehetoseg[huzott]:=0;

end;

end;

end.