uses crt;procedure r(c:Byte);begin
TextColor(c);Write('O ')
end;begin
r(1);r(15);r(4);Write(#10' ');r(14);r(2)
end.