Помогите написать задачу на паскале (с оператором For) даны два целых числа A и B(A < B).Найти сумму всех целых чисел от A до B включительно

var    A, B, i, Summ : Integer;begin

    Writeln('Введите числа:');    Readln(A, B);

    Summ := 0;    for i := A to B do        Summ := Summ + i;    Writeln('Сумма равна: ', Summ);    Readln;end.