var
i:integer;
b:array [1..10] of integer;
Begin
for i:=1 to 10 do
begin
b[i] := random(10);
write(b[i],' ');
end;
End.
