Еще есть в опера и опера есть на телефоне теперь тоже
<span>uses crt;
var x,n,res:longint;
begin
clrscr;
write (' vvedite chislo: ');
readln (x);
</span><span>res:=1;
for i:=1 to n do
res:=res*x
write (res);
readln;
end.</span>
Самый краткий путь 8 А-С-D-E
Он более красочный и качество по лучше будет.
Для трехзначногозакономерность будет такая
x = a*100 +b*10+c
x*x = (a+b+c)^3
видимо нужно в цикле перебрать от 100 до 999 и посмотреть что попадет под условие