ДАМ МНОГО!ПОМОГИТЕ СРОЧНО! ПОЖАЛУЙСТА!
Program naconecto;vark,s:integer;BEGINs:=0;k:=0;while s<10 do begin s:=s+k; k:=k+4;end;write(k);END.<br> выведет 12