Найдите двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа.(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.