Найти сумму всех целых чисел от А до В - Pascal ABC

Формулировка задачи:

1.)Найти: ) сумму всех целых чисел от А до В (значения А и В вводятся с клавиатуры; В <> А). 2.)найти: г) сумму квадратов всех целых чисел от А до В (зна¬чения А и В вводятся с клавиатуры; В>А). 3.)Найти сумму 1^2+2^2+3^2+…+10^2.

Решение задачи: «Найти сумму всех целых чисел от А до В»

Листинг программы

program qq;
var a,b,i:integer;
summ:real ;
begin
writeln ('введите a');
read(a);
writeln ('введите b');
read (b);
for i:=a to b do begin
summ:=((a+b)*i)/2;
Writeln('Сумма = ',summ);
readln
end;
end.

Объяснение кода листинга программы

В этом коде на языке Pascal ABC происходит следующее:

В первой строке объявляются переменные a, b, i типа integer (целое число) и переменная summ типа real (число с плавающей точкой).
В следующих двух строках происходит ввод значений для переменных a и b с помощью функции read.
Затем в цикле for i от a до b (включительно) происходит вычисление суммы всех целых чисел от a до b (включительно) по формуле ((a+b)*i)/2 и сохранение результата в переменной summ.
После каждой итерации цикла результат выводится на экран с помощью функции writeln.
В конце программы вызовется функция readln, которая необходима для того, чтобы программа не завершилась сразу после вывода последнего результата, а дождалась нажатия клавиши Enter. Список действий в коде:
Ввести значение переменной a.
Ввести значение переменной b.
Вычислить сумму всех целых чисел от a до b.
Вывести результат на экран.
Прочитать из консоли, нажата ли клавиша Enter.