Определите, что будет напечатано в результате выполнения следующего алгоритма: var...

Question

Определите, что будет напечатано в результате выполнения следующего алгоритма:

var a,b:integer;
begin
a:=1;
b:=1;
while abs(b)<100</span>
do begin
d:=b*(-1);
a:=3*a+b;
b:=a*b;
end;
writeln(b);
end.

Answer 1

Ответ :  7168
....................................