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

var a,b,c,n: integer; beginfor n: =100 to 999 do begin a: =n div 100; b: =n div 10 mod 10; c: =n mod 10; if (a+b+c)*(a+b+c)*(a+b+c)=n then writeln (n); end; end. И в результате получаем, что это число 512