var
x, y: byte;
begin
readln(x);
repeat
if (x div 3 > 0) then
begin
write(3:2);
x -= 3;
end
else
if (x div 2 > 0) then
begin
write(2:2);
x -= 2;
end
else
if (x > 0) then
begin
write(1:2);
x -= 1;
end;
until (x = 0);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.