Нужно , надо до завтра сделать, я вас умоляю

В PascalABC.NET эта задача решается легко и быстро. В других версиях будет монстрик.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure MakeFile(path:string);
// не относится к заданию, создает файл Text со 100 числами
begin
  WriteLines(path,SeqRandom(100,-99,99).Select(x->x.ToString))
end;

begin
  MakeFile('MyFile1.txt');
  // теперь у нас есть текстовый файл из 100 случайных чисел
  // собственно, решение
  var n:=ReadInteger('Укажите количество чисел:');
  var a:=ReadLines('MyFile1.txt').Take(n).ToArray;
  Writeln('Исходная последовательность'); a.Println;
  Writeln('Результирующая последовательность');
  a:=a.OrderBy(x->x.Last).ToArray; a.Println;
  WriteAllLines('MyFile2.txt',a);
end.

Пример
Укажите количество чисел: 15
Исходная последовательность
51 -9 17 -12 7 -15 -20 50 98 19 56 67 -57 -42 64
Результирующая последовательность
-20 50 51 -12 -42 64 -15 56 17 7 67 -57 98 -9 19

№1 ответ: 133

№2 ответ: 40

№3 ответ: 60

№4 ответ: 1

№5 ответ: 6

Объяснение:

№1 Цикл "s:=s+12;" повторяется благодаря функции "for k:=1 to 11 do" и тем самым к переменной S мы 11 раз прибавляем 12. 1+11*12=133

№2 То же самое, но мы к переменной 5 раз (18-13) прибавляем 8. 8*5=40

№3 К переменной S сперва прибавляем переменную k 3 раза. Переменная k получает номер цикла, то есть в первый раз мы прибавляем 1, потом 2, потом уже 3. В конце программы просто умножаем на 10. S=(1+2+3)*10.

№4 Здесь для совершения цикла необходимо выполнить условие, а именно нужно, чтобы переменная i была больше 1, но из-за того что i у нас изначально равна 1, цикл "y := y + 1/i;  i := i - 1;" у нас не выполняется, а значит y=1

№5 В цикле repeat все действия выполняются сразу, но выход из цикла осуществится только при том условии, если i будет больше 5. К концу цикла у нас i будет равен 6, а значит цикл закончится и y будет равен 6 (y:=y+i).