Exercice cube d'un nombre

Exercice :
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
DEF PROC affiche (n:entier)
Résultat =
[d←1] répéter
[ j←d,s←0]
répéter
s←s+j
j←j+2
jusqu'à s>=n*n*n
si s=n*n*n alors
i←d
écrire(n,"^3 =",s," = ")
répéter
si i<>d alors écrire("+")
finsi
écrire(i)
i←i+2
jusqu'à i=j
écrire_nl
finsi
d←d+2
jusqu'à d>=n*n*n div 2 + 1
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
program cube;
uses wincrt;
var d,s,j,n,i:integer;
procedure affiche;
begin
d:=1;
repeat
j:=d;
s:=0;
repeat
s:=s+j;
j:=j+2;
until s>= n*n*n;
if s = n*n*n then
begin
i:=d;
write(n,'^3 = ',s,' = ');
repeat
if i <> d then write(' + ');
write (i:5);
i:=i+2;
until i=j;
writeln;
end;
d:=d+2;
until d>= (n*n*n)div 2 +1;
end;
begin
readln(n);
affiche;
end.

DEF PROC affiche (n:entier)
Résultat =
[d←1; verif<--faux] répéter
[ j←d,s←0]
répéter
s←s+j
j←j+2
jusqu'à s>=n*n*n
si s=n*n*n alors
i←d
verif<--vrai
écrire(n,"^3 =",s," = ")
répéter
si i<>d alors écrire("+")
finsi
écrire(i)
i←i+2
jusqu'à i=j
écrire_nl
finsi
d←d+2
jusqu'à (d>=n*n*n div 2 + 1) ou (verif)