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

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

 

решить на паскале?

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает