Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно. Написать программу с while НА ПАСКАЛЕ

program Summa;

var

A, B, Sum: Integer;

begin

 writeln ('Введите число А:');

 readln(A);

 writeln ('Введите число B:');

 readln(B);

 while A <= B do begin

   Sum := Sum + A;

   A := A + 1;

 end;

 writeln ('Сумма:', Sum);

end.

Объяснение: