Дано натуральное число N. Выяснить, равен ли квадрат этого числа кубу суммы цифр этого числа.

Формат входных данных
Натуральное число N > 1000

Формат выходных данных
Если квадрат равен кубу, то необходимо вывести "равен".
В противном случае - "не равен".

Задача сводится к грамотному использованию mod и верному прописанию кода программы.

Текст программы (Паскаль):

1. var
2. x,c,sum : integer;
3. Begin
4. write('Введите число N>1000 ');
5. readln(x);
6. c:=x; sum:=0;
7. while c>0 do begin
8. sum:=sum+(c mod 10);
9. c:=c div 10;
10. end;
11. if sqr(x)=(sum*sum*sum)
12. then writeln('равен')
13. else writeln('не равен');
14. readln;
15. End.