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

Question

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

Answer 1

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.