program algorytm;
var i:byte; {taka zmienna wystarczy}
begin
randomize;
for i:=1 to 5 do
write(random(9)+1,' ');
writeln(random(9)+1); {oddzielone spacjami z "enterem" na końcu}
readln;
end.
lub zmień ten fragment
for i:=1 to 6 do
writeln(random(9)+1); {każda cyfra w nowej linijce}