помогите, пожалуйста, составить программу в паскале))

Ответы:

program seven,

var x,i:integer,

Begin

for i:=1 to 15 do

x:=x+i,

write(x),

End.