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

Определите, что будет напечатано в результате выполнения следующего алгоритма: Var a,b,i: integer; begin a:=5; b:=1; for i:=1 to 10 do begin b:=a-i; If a-b<6 then a:=b-2*a else a:=2*b-a end; writeln(a) end.