program asd;
var a,b,k:integer;
begin
readln (a,b);
b:=b-1;
while (b>a) do begin
write (b,', ');
b:=b-1;
k:=k+1;
end;
writeln;
writeln (k);
readln;
end.
A*c*b/2 вот только под программу запиши свою
Вот программа.....Проверил несколько раз,вроде бы работает
Сумму всех целых чисел от 100 до 500 можно найти, используя основное свойство факториала.