кратно ли заданное число 5 или 6; если нет, вывести остаток от деления на 4

===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.