program schet;
var summa, i: longint;
begin
summa:=0;
for i:=1 to 1000 do summa:= summa + i;
write(summa);
end.
Объяснение:
Надеюсь , удачи!
