Чему будет равен результат выполнения программы, если ввести значение для a=16 program c 22; var a: integer; begin readln(a) if (a mod 2=0) then a: a div 2; write (a) end.

Program c22;
var a: integer;
begin
writeln('a=');
readln(a);
if (a mod 2=0) then
a:=a div 2;
write (a);
end.
(исправила пару ошибок в проге )

a mod 2=0 - это условие показывает чётное ли число ..у нас а= 16 
16 -это чётное число ..тогда 
а= 16  на цело поделить на 2
а=8