var 
  x,y,z:integer;
begin
  case x of
    1           : writeln (x);
    2, 3, 4     : writeln (y);
    5 .. 7      : writeln (z);
    8, 9 .. 12  : writeln (x, y, z);
  else
    writeln ('Ошибка')
  end; 
end.