Ответьте на вопрос, сколько шагов сделает следующий цикл?
k :=1;
while k<7 do begin
k:=k*2;
end;