Составить программу для вывода на экран 3 значных чисел без остатка и корня кубического из них

Var   x: double; begin   x: =102;   while x< =999 do begin writeln(x,' ',exp(ln(x)/3)); x: =x+3 end; end. результат выполнения программы: 102 4.67232872835526 105 4.71769398031653 108 4.7622031559046 111 4.80589553370533 114 4.84880758583988 117 4.89097324650875 120 4.93242414866094 123 4.97318983326859 126 5.01329793496458 129 5.05277434720856 132 5.09164336965949 135 5.12992784003009 138 5.16764925236362 141 5.2048278633942 144 5.24148278841779 147 5.27763208790408 150 5.31329284591305 . . 960 9.86484829732188 963 9.87511349546425 966 9.8853573964768 969 9.89558011047944 972 9.90578174668388 975 9.91596241340387 978 9.92612221806536 981 9.93626126721644 984 9.94637966653718 987 9.95647752084936 990 9.96655493412597 993 9.97661200950066 996 9.98664884927706 999 9.99666555493786

program alph; const n=30; var a,i,: integer; begin  writeln ('*********************************');   writeln ('*    n    *    число    *    сумма    *');   writeln ('*********************************');   for i: =1 to n do      begin          a: =random (100);           writeln ('*    ',i,'    *        ',a,'      *      ',a+123,'      *'); end;   writeln ('*********************************'); end.program aeus; const n=10; var i: integer; begin  writeln ('******************************');   writeln ('*    таблица умножения на 4    *');   writeln ('******************************');   for i: =1 to n do      begin          writeln ('*                4 x ',i,' = ',4*i,'                *'); end;   writeln ('******************************'); end.

const n=10

var i,k: integer;

a: array [1..n]   of integer;

b: array [1..n]   of integer;

c: array [1..n]   of integer;

begin

for i: =1 to n do

begin

read(a[i]);

end;

k: =1;

for i: =1 to n do

begin

if i mod 2=0 then c[k]: =a[i];

k: =k+1;

end;

for i: =1 to n do

begin

read(b[i]);

end;

for i: =1 to n do

begin

if i mod 2 = 0 then c[k]: =b[i];

k: =k+1;

end;

for i: =1 to n do

begin

write(a[i]);

end;

for i: =1 to n do

begin

write(b[i]);

end;

for i: =1 to n do

begin

write(c[k]);

end;