Определите, что будет напечатано в результате выполнения следующего алгоритма.var s,k: integer; begin s := 1; k := 0;while s < 220 do begins := s * 3; k := k + 1end;writeln(k); end.