תודה מראש!
program yayaya;var a : Integer;beginrandomize; repeat a:=random (10); writeln (a); until keypressedend.
end.
זה מה שהתכוונת?