Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа. 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+;     writeln('это число: ',a: 3); end.