Ответ:

program schet;

var summa, i: longint;

begin

summa:=0;

for i:=1 to 1000 do summa:= summa + i;

write(summa);

end.

Объяснение:

Циклом for мы постепенно добавляем к переменной summa значения переменной i. Тип данных longint потому, что значение summa не входит в допустимые значения типа данных integer

Надеюсь помог, удачи!