Aritmética de Pascal Kabac

El programa propio del cartel original es realmente difícil de leer. Publica tu propio programa:

var a: array[1..4] of integer

s, x, y, i, j, t: integer;

comenzar readln(y); s:=0; repetir

para i:=1 a 4 hacer

comenzar a[i]:=y mod 10; =y div 10; end;

for i：=1 a 3 do

?for j：=1 to 4-i do

si a [ j]lt; a[j 1] luego comienza t:=a[j]; a[j]:=a[j 1]; a[j 1]:=t final;

inc ( s);

y:=1000*a[1] 100*a[2] 10*a[3] a[4];

x:=1000*a [ 4] 100*a[3] 10*a[2] a[1];

writeln(y: 4, '-', x: 4, '=', y-x: 4); /p>

y：=y-x; hasta y=6174; writeln(' Paso=',

fin.