Var
m: array [1..10000] of integer;
k,i:integer;
Begin
k:=0;
randomize;
For i:=1 to 14 do
m[i]:=random(4+20);
Write(m[i],' ');
end.
Var
m: array [1..10000] of integer;
k,i:integer;
Begin
k:=0;
randomize;
For i:=1 to 14 do
m[i]:=random(4+20);
For i:=1 to 14 do
Write(m[i],' ');
end.