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