Задано натуральное число n. Вычислить модуль разности кубов цифр заданного числа. ПАСКАЛЬ

В такой трактовке Вы просто находите сумму кубов цифр.

Var   n,c,R:integer;BeginWrite('n = ');ReadLn(n);R:=0;While n > 0 do   Begin   c:=n mod 10;   R:=R-c*c*c;   n:=n div 10   End;WriteLn('|R| = ',Abs(R));End.