Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа. Free pascal

var  a, s,d,ed, ost: integer; begin a:=99; repeat    a:=a+1;   s:= a div 100;   ost:= a mod 100;   if ost>9 then    begin     d:= ost div 10 ;     ost:=ost mod 10;   end else d:= 0;   if ost<10 then ed:=ost;  until (a<1000) and (a*a=((s+d+ed)*(s+d+ed)*(s+d+ed)));   writeln('это число: ',a:3); end.