Дано натуральное число 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.