Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа. 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.