var
a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(30)+1;
write (a[i],' ');
end;
writeln;
for i:=1 to 20 do
if (odd(a[i])=false) and (a[i] mod 3 = 0) then write (a[i],' ');
readln;
end.
var
a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(30)+1;
write (a[i],' ');
end;
writeln;
for i:=1 to 20 do
if (odd(a[i])=false) and (a[i] mod 3 = 0) then write (a[i],' ');
readln;
end.