Двумерные массивы

[ЭдикNEO]

Найти все двузначные числа, обладающие следующим свойством : если к сумме цифр числа прибавить квадрат этой суммы, то получится снова искомое число.

Помогите, напишите полностью программу

[MaxNik2009]

вам ->сюда<-, и не забудьте указать сколько вы заплатите за работу.

[VadikV]

Халявщики, блин... Когда элементарные вещи уже сами решать научитесь...
И потом эти "специалисты" будет же где-то работать...

var
   i : integer;
   d1, d2 : integer;
begin
     for i := 10 to 99 do begin
        d1 := i div 10;
        d2 := i mod 10;
        if i = (d1+d2 + Sqr(d1+d2))
        then WriteLn(i);
     end;
	ReadLn;
end.