Помогите мне пожалуйста это очень срочно

CategoriesГеометрияПредмет

Помогите мне пожалуйста это очень срочно

Ответы:

var

A:longint,

n,i:integer,

begin

Write(n =),

readln(n), 

for i:=1 to 2013 do 

if n &lt,&gt, i then   

A:=A+i, 

Writeln(n=,n, Sum = ,A),

Readln,

end.