program brainly;
var
  number :integer;
begin
  Write('Введите число: ');
  ReadLn(number);
  if (number mod 5 <> 0) and (number mod 6 <> 0) then Write('Результат: ', number mod 4);
end.