var a:array [1..10] of integer; i:integer; begin randomize; for i:=1 to 10 do begin a:=random(4); write(a,' '); end; readln; end.