program mn;
uses crt;
var a:array[1..100]of integer;
n,i:integer;
procedure vvod(var l:integer);
var g:integer;
begin
randomize;
for g:=1 to l do
begin
a[g]:=random(30);
write(a[g]:3);
end;
writeln;
end;
BEGIN
ClrScr;
Write('n:');
readln(n);
vvod(n);
for i:=1 to n do
if a[i] mod 3 = 0
then a[i]:=a[3];
for i:=1 to n do
write(a[i]:3);
readln;
END.