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

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.