Задачка на паскале

[Юльчик18]

Помогите написать задачку плиззззз...
Найти двузначное число, равное квадрату числа его едениц, сложенному скубом числа его десятков.
Вообще в эту задачку не могу врубиться. ПОМОГИТЕ!(

[russian-stalker]

Думаю условие что-то типа того представляет:
xy=sqr(y)+x*x*x

[russian-stalker]

Получается число 24:

program Project2;
var
I,k,j:integer;
s:string;
begin
for i:=10 to 99 do
begin
str(i,s);
s:=copy(s,2,1);
val(s,k,k);
k:=sqr(k);
str(i,s);
s:=copy(s,1,1);
val(s,j,j);
j:=j*j*j;
if j+k=i then
writeln(i);
end;
readln(i);
end.

[LeBron]

проверку лучше выполнять 1 оператором:

for i:=10 to 99 do if sqr(i mod 10)+(i div 10)*(i div 10)*(i div 10)=i then writeln(i);

[LeBron]

тоесть, если говорить о полной программе в виде "для зачета", то наверно так:

var i:integer;
begin
for i:=10 to 99 do 
if sqr(i mod 10)+(i div 10)*(i div 10)*(i div 10)=i 
then 
writeln(i); 
end.

- не знаю, какие сейчас требования к форматированию кода.