//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x<0).Aggregate(BigInteger(1),(x,y)->(x*y)));
end.
Во время выполнения алгоритма сменяются следующие значения:
a=5 b=4
b=80
a=25
Ответ: a=25
===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.
За 5 мин=1*2+1*2+1*2+1*2+1*2=10
За 7 мин=1*2+1*2+1*2+1*2+1*2+1*2+1*2=14
За 9 мин=18
И т.д.