Як отримати посилання на створену візуалізацію для поширення іншим користувачам?

program a1; var a: array[1..30] of integer;       amax,amin,i,imin,imax,n,s: integer; beginwriteln('введите n элементов массива'); readln(n); for i: =1 to n do a[i]: =random(30); writeln('введённый массив имеет вид'); for i: =1 to n do write(a[i], '  '); writeln; amax: =a[1]; imiax: =1; for i: =2 to n do  if a[i]> amax then begin  amax: =a[i]; imax: =i; end; amin: =a[1]; imin: =1; for i: =2 to n do  if a[i]< amin then begin  amin: =a[i]; imin: =i; end; writeln('полученный массив имеет вид'); s: =a[imin];

a[imin]: =a[imax];

a[imax]: =s; for i: =1 to n do  writeln(a[i],'  '); end.

              скрипка   флейта   альта кларнет габое труба

браун         0             0           1           1           0         0

смит           0             1           0           0           1         0

вессон         1           0             0           0           0         1

из последнего условия следует что б. играет скрипке, флейте, альте или кларнете.

из 4ого условия следует что с. не альтеист и не трубач

из 3его условия следует что б. не скрипач и не играющий на флейте

с. не скрипач,иначе это противоречит условию 1му

var  n, i: integer;     x, s: real; begin  repeat       writeln('введите количество слагаемых: ');       readln(n)  until n> 0;   writeln('введите ''x'': ');   readln(x);   for i : = 1 to n do      s : = s + sin(i * x);   writeln(s);     readlnend.

программа на паскале:

program xxx;

    var i, n, k : integer;

begin

  write('введите число n-');

  readln(n);

  k=0;

  for i: =1 to n do

      if n mod i = 0 then k: =k+1;

  write('количество делителей = ', k);

  readln

end.