Var a,b: integer;
Begin
a:=2;
b:=4;
while b>=0 do
begin
b:=a*b+1;
a:=a-2;
end;
b:=b+a;
write (b);
End.
А)10010+128+32+16+1=10187
б)1100+8+2=1110
После слова begin:
Переменной s присвоено значение 0.
Дальше идет цикл, повторяющийся 7 раз для значений k: 6,7,8, ... ,12
При каждом проходе цикла переменная s увеличивается на 10, т.е в результате она увеличится на 7 * 10 = 70.
Т.к. в начале она была равна 0, то в конце ее значение будет 0 + 70 = 70.