Спо информатике в паскале программу написать надо

const n = 10;

var ar: array[1..n]of integer;

i,j,tmp: integer;

begin

randomize;

write('массив до сортировки: ');

for i: =1 to n do

begin

ar[i]: =random(101)-50;

write(ar[i], ' ');

end;

for i: =1 to n do

begin

for j: =i to n do

begin

if(ar[i] > ar[j])then

begin

tmp: =ar[i];

ar[i]: =ar[j];

ar[j]: =tmp;

end;

end;

end;

writeln();

write('массив после сортировки: ');

for i: =1 to n do

begin

write(ar[i], ' ');

end;

end.

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108