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

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