program n;
Var
i,s: Integer;
BEGIN
s:=0;
For i:=-50 to 100 do
s:=s+i;
Writeln('Сумма чисел от -51 до 100 = ',s);
Readln
END.
