Развлекалка для мозга и убивалка для времени. Супер- управление на развитие воображения нужно ​

program sashka9595; uses crt; const n=20; var  a: array[1..n] of integer;   max,i,j,k: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   randomize;   writeln('массив: ');   for i: =1 to n do      begin          a[i]: =random(100)-50;           write(a[i],'  ');       end;   for i: =1 to 3 do      begin          k: =i;           max: =a[i];           for j: =i+1 to n do              if a[j]> max then                  begin                      max: =a[j];                       k: =j;                   end;           a[k]: =a[i];           a[i]: =max;       end;   writeln();   writeln('три наибольших элемента массива: ');   for i: =1 to 3 do      writeln(i,'-й: ',a[i]); end.

program egor4774442; uses crt; const n=9; var  e: array[1..n] of integer;   min, nom,i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   randomize;   for i: =1 to n do      e[i]: =random(100)-50;   min: =e[i];   nom: =1;   writeln('элементы массива: ');   for i: =1 to n do      begin          if (e[i]< min) and (e[i]> 0) then              begin                  min: =e[i];                   nom: =i;               end;           write (e[i]: 5);       end;   writeln();   writeln('наименьший положительный элемент массива:   ',min);   writeln('его номер:   ',nom); end.