Ввести число. Если число кратно 4, то к его разделить ** 4

Question

Ввести число. Если число кратно 4, то к его разделить на 4

Answer 1

Var
a:integer;

begin
readln(a);
if (a mod 4 =0) then
a:=a div 4;
writeln(a);
end.