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

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