Определите значение переменной s после выполнения фрагмента программы (функция mod вычисляет остаток от целочисленного деления, div - целую часть. :
s:=0;
for i:=1 to 8 do
begin
if i mod 2 = 0 then s:=s+i div 2;
end;
writeln \(s\);

• 8
• 10
• 0