Пожаалуйста,Geany . Найти сумму целых чисел от 100 до 500: сумму от a до 500 a<= 500

Question

Пожаалуйста,Geany .
Найти сумму целых чисел от 100 до 500: сумму от a до 500 a<= 500

Answer 1

Var sum,i:integer;beginsum:=0;for i:=100 to 500 dosum:=sum+i;writeln (i);end.