Program z; var i,sum:integer; begin for i:=1 to 15 do sum:=sum+i; write(sum); end.
Pascal ABC
дякуювам велике