спросить у пользователя два числа. используя while посчитать сумму целый чисел между этими числами включительно.Вывести ответ на экран.Решить с помощью паскаль ABC.

uses crt;varmin,max,sum:integer;beginsum:=0;writeln('Введите 1-ое число');readln(min);writeln('Введите 2-ое число');readln(max);while (min <= max) do beginsum:=sum+min;min:= min + 1;end;writeln('Сумма = ', sum);end.