Нужно быстро сделать на jave

о том лылвдаоврч. малая лздп т в том числе и в итоге я не знаю что делать будешь сегодня в школе не было бы круто если бы я была на концерте была бы не сказала бы сразу и не надо от него и так все плохо было не до конца жизни был назначен на должность начальника штаба дивизии и в итоге я не знаю почему так долго не могла бы и г в состав округа уже не будет на месте и не знаю как г г г И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого.

Program DaNNuu;
uses crt;
const n=3;
var
  a:array [1..n] of integer;
  i,j,min,temp:integer;
begin
  randomize;
  {создание массива}
  writeln('Элементы массива:');
  for i:=1 to n do
    begin
      a[i]:=random(101)-50;
      write (a[i]:5);
    end;
  {сортировка массива}
  for i:=1 to n-1  do
    begin
      min:=i;
      for j:=i+1 to n do
        if a[min]>a[j] then
          min:=j;
      temp:=a[i];
      a[i]:=a[min];
      a[min]:=temp;
    end;
  writeln();
  {вывод массива}
  writeln('Результат сортировки:');
  for i:=1 to n do
    write(a[i]:5);
end.