Найти: а) сумму всех целых чисел от 100 до 500; б) сумму всех целых чисел от a до 500 (значение a вводится с клавиатуры; a 500); в) сумму всех целых чисел от –10 до b (значение b вводится с клавиатуры; b –10); г) сумму всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b a).

Сенью☺️

а) var a,sum,i:integer;beginsum:=0;for i:=100 to 500 dobeginsum:=sum+i;end;writeln(sum);end.б) var a,sum,i:integer;beginsum:=0;writeln('Введите число a');readln(a);for i:=a to 500 dobeginsum:=sum+i;end;writeln(sum);end.в) var b,sum,i:integer;beginsum:=0;writeln('Введите число b');readln(b);for i:=-10 to b dobeginsum:=sum+i;end;writeln(sum);end.г) var a,b,sum,i:integer;beginsum:=0;writeln('Введите число a');readln(a);writeln('Введите число b');readln(b);for i:=a to b dobeginsum:=sum+i;end;writeln(sum);end.