a:=1;
b:=3;
for i:=6 downto 1 do b:=b+i;//тут к б добавляется значение и. И, в свою очередь меняется от 6 до 1. Кароче будет=3+6+5+4+3+2+1=24
if a +b >25 then b:=b - a//если а+ б больше 25 то делаем что-то, но т.к. оно не больше, то нас это не интересует
else b:= b+a;//а вот это очень интересует. К б прибавляется а, и получается б=б+а=24+1=25
ответ 25
a:=1;
b:=3;
for i:=6 downto 1 do b:=b+i;//тут к б добавляется значение и. И, в свою очередь меняется от 6 до 1. Кароче будет=3+6+5+4+3+2+1=24
if a +b >25 then b:=b - a//если а+ б больше 25 то делаем что-то, но т.к. оно не больше, то нас это не интересует
else b:= b+a;//а вот это очень интересует. К б прибавляется а, и получается б=б+а=24+1=25
ответ 25