Определить, равен ли квадрат этого числа сумме кубов его цифр

var x,y,Q:real;
c,d,i,n,m,P:integer;
a: array of integer;
s: string;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
 
read(s);
Q:=0;
val(s,d);
c:=length(s);
for i:=1 to c do begin
val(s[i],a[i]);
Q:=Q+exp(3*ln(n));
end;
d:=sqr(d);
If d=Q then write ('Yes') else write ('No');
 
close(input); close(output);
end.

var x,y,Q:real;
c,d,i,n,m:integer;
s: string;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
 
read(s);
Q:=0;
val(s,d);
c:=length(s);
for i:=1 to c do begin
val(s[i],a[i]);
Q:=Q+exp(3*ln(n));
end;
d:=sqr(d);
If d=Q then write ('Yes') else write ('No');
 
close(input); close(output);
end.

begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
write('NO');
close(input);close(output);
end.

var n, m, d, t: Integer;
begin
  Read(t); n:=Sqr(t); t:=Abs(t);
  while t>0 do begin
    d:=t mod 10; t:=t div 10; m:=m+d*d*d;
  end;
  WriteLn(n=m);
end.