Господи грамотей не мима а мимо!
Так вот алгоритм последовательность действий заданный человеком, программой (не важно кем)
Var a, b, c, r : integer;
begin
c:=0;
r:=9;
write('Введите число: ');
readln(a);
while a div 10 <> 0 do
begin
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
end;
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
writeln('Разность: ', c-r);
end.
ДА ХОТЬ ДЛЯ 10 ЗНАЧНОГО))))
Первое слово: =Левсимб(н8,найти(" ";H8)-1)
Второе слово: =Правсимб(н8;найти(" ";H8)-1)
Это обычный режим.
_________________