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.