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