var 
  x,y,z:integer;
begin
  case x of
    1, 2        : writeln (x);
    2, 3, 6     : writeln ('Ошибка, о которой нам скажет компилятор');
    5 .. 7      : writeln (z);
  else
    writeln ('Ошибка !')
  end; 
end.