Дано натуральное число N. Определить, верно ли, что квадрат значения N равен кубу суммы цифр числа N (операции над строками не использовать).

Pascal

Var N,s,x:integer; 
begin s:=0; 
writeln(Введите число); 
readln(N); 
x:=N; 
while xlt;gt;0 do 
begin 
s:=s+(x mod 10);
x:=x div 10; 
end; 
if sqr(n)=power(s,3) then writeln(Верно)    
else writeln(Неверно); 
end.