Дано число. если даное число делится на 4 то разделить на 2 иначе оставить без изменение

Program rrr;
var a,s:longint;
begin
read(a);
s:=455545656566556;
if (a mod 4)=0 then s:=a div 2
else s:=a;
write(s);
end.