Прошу помощи! Определите…

Прошу помощи! Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; ьbegins: =0; k: =1; while s < 66 do begink: =k+3; s: =s+k; end; write (k); end.