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

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);