Question

Var k, s:integer; Begin S:=5; K:=0; While k < 15 do begin K:=2+k; S:=k+s; End; Write(s); End.

Answer 1

это программа
я могу только так сказать