Var k, s: integer; begin s: =5; k: =0; while k < 15 do begin k: =2+k; s: =k+s; end; write(s); end.

lerabregneva    2   20.08.2019 20:00    9