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

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