Вопрос Написать программу поиска двузначных чисел

[Никнейм]

обладающих следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снова данное число. С циклом параметра (for i... to do) ПОжалуйста, помогите

 

[Iliya]

for i:=1 to 9 do for j:=0 to 9 do if 10*i+j=(i+j)*(i+j+1) then writeln(i*10+j);

 

[Olegyn]

результат://otvet.imgsmail.ru/download/34152442_f1c4941ae7fb74e1f6e5687bc42711c7_800.jpg