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