Определить, равно ли заданное 4 значное число кубу суммы цифр из которых…

Program n1; Uses CRT; Var a,b,c,d,s,ch: integer; beginWriteln ('Vvedite chislo'); readln (ch); a: =ch div 1000; b: =ch mod 1000 div 100; c: =ch mod 100 div 10; d: =ch mod 10; s: =a+b+c+d; writeln (s*s*S); If ch=s*s*S then writeln ('kub summi cifr raven chisly') else writeln ('kub summi cifr ne raven chisly'); readlnend. Только вот числа такого я не нашла)