Одноклеточная амёба каждые 3 часа делится на 2 части. определить сколько будет амёб через n часов. если пользователь ввёл число которое не делится на 3 то выдать ошибку

var n,a,i:integer;beginwrite('n=');readln(n);a:=1;if n mod 3 <>0 then writeln('Число должно быть кратно 3') else begin       for i:=1 to n div 3 do a:=2*a;      writeln('Количество амеб через ',n,' часов = ',a);      end;end.