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

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