Напишите программу паскаль: С клавиатуры вводится число от 0 до 1000 включительно. Каждая цифра не превосходит 6. Найти сумму промежуточных значений между наибольшей и наименьшей цифрами в числе?

Попробуй, может сработает)

program num32; var

nums, i, min, max, a, i2, i3, sum: integer; begin

min : = 7;

max : = 0;

sum : = 0;

readln (nums) ;

while nums 0 do

begin

if (((nums mod 10) > max)) then begin

max : = nums mod 10;

end;

if (((nums mod 10) < min)) then begin

min : = nums mod 10;

end;

nums : = nums div 10;

end;

if (min > max) then begin

for i2 : = max to min do

sum : = sum + i2;

end;

if (max > min) then begin

for i2 : = min to max do

sum : = sum + i2;

end;

writeln (sum) ;

end.