USER WINCRT

uses wincrt;
var begin
n,c,d,u :integer;
write('n = ');readln(n);
c:=n div 100 ;
d:=(n div 10) mod 10;
u:=n mod 10 ;
if (u*u*u+d*d*d+c*c*c) = n
then writeln (n, ' est cubique')
else writeln(n,' n''est pas cubique');
if (n mod 2 = 0)
then writeln(n,' est pair')
else writeln(n,' est impair');
if n=abs(n) {ou n >= 0}
then writeln(n,' est positif')
end.
else writeln(n,' est négatif');