Найдите двузначное число, тем свойством, что куб суммы его цифр равен квадрату самого числаpascal)

uses crt;

var i,s,a,b: integer;

begin for i: =10 to 99 do begin a: =i div 10; b: =i mod 10; s: =a+b; if s*s*s = sqr(i) then writeln(i); end;

readln; end.

const N = 8;

var i,min,max: integer;

var a: array [1..N] of integer;

begin

write('Введите массив: ');

min:=0;

max:=0;

for i:=1 to N do  

 begin

 readln(a[i]);

 if (a[i] mod 2 = 0) and (a[i] mod 10 = 2) then

   begin

   if (max=0) then max:=a[i]

   else if (a[i]>max) then  max:=a[i];

   end;

 if (a[i] mod 2 <> 0) and (a[i] mod 10 = 5) then

   begin

   if (min=0) then min:=a[i]

   else if (a[i]<min) then  min:=a[i];

   end;  

 end;

for i:=N downto 1 do  

 begin

 if (a[i]>(max-min)) then a[i]:=a[i]-(max-min);

 write(a[i],' ');

 end;

end.

Var  a, b : array [1..20] of integer;   i : integer;   f : boolean; begin   randomize;   for i: = 1 to 20 do  begin    a[i]: = random(5);     b[i]: = random(5);   end;   f: = false;   for i: = 1 to 20 do    if a[i] = b[i] then    begin      f: = true;       writeln('номер: ',i,' значение: ',a[i]);     end;   if f = false then    writeln(' элементов нет! '); end.