помогите пожалуйста срочно!
Определите что будет напечатано в результате работы следующего фрагмента программы
​Var k, s:integer
Begin
S:=0;
K:=1;
While s < 66 do begin
K:=k+3;
S:=s+k;
End;
Write (k) ;
End.
И второй пример