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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.