Вопрос по информатике:

Помогите с задачкой в паскале ( не сложная)!!!!!!
Задача: каждые 3 часа моллюск делится на 2, сколько их будет через N часов? Обратите внимание на то, что число часов может и с остатком делится на 3!!!!
Program molusk;
var s,n,i: integer;
begin;
n:=1;
Writeln('введите время ');readln(s);
for i:=1 to s do
if(s mod 3)=3 then n:=s:3;
writeln(n);
end.
Где у меня тут ошибка, думаю скорее всего в (...Mod....).