ДАМ МНОГО!Пожалуйста посчитайте СРОЧНО! ПОЖАЛУЙСТА!

Program naconecto;vark,s:integer;BEGINs:=0;k:=0;while s<10 do begin  s:=s+k;  k:=k+4;end;write(k);END.

выведет 12