Дана последовательность натуральных чисел 1, 2, 3, n (1 ≤ n ≤ 1000 необходимо сначала расположить в обратном порядке часть этой последовательности от элемента с номером a до элемента с номером b, а затем от c до d (a < b; c < d; 1 ≤ a, b, c, d ≤ n). вводятся натуральные числа числа n, a, b, c, d. требуется вывести полученную последовательность.

Var n,a,b,c,d,i:integer;
begin
write('n = '); readln(n);
write('A и B: '); readln(a,b);
write('C и D: '); readln(c,d);
for i:=1 to a-1 do write(i,' ');
for i:=b downto a do write(i,' ');
for i:=b+1 to c-1 do write(i,' ');
for i:=d downto c do write(i,' ');
for i:=d+1 to n do write(i,' ');
end.
Пример:
n = 20
A и B: 5 10
C и D: 14 18
1 2 3 4 10 9 8 7 6 5 11 12 13 18 17 16 15 14 19 20 

Есть формула объёма видеопамяти она равна

V=M×N×a 

a - это глубина цвета, она равна K=

K - это отображаемые цвета

M - это кол-во горизонтальных точек

N - это кол-во вертикальных точек

И так, найдём K, подставив цифры

K=16 777 216 = 

Значит a=24

Теперь всё подставим в формулу.

V=1024×768×24 это мы получим кол-во бит

Но лучше сразу перевести в Мб, переведя биты в байты (поделив на 8, байты в КилоБайты делив на 1024 и Кб в Мб делив еще на 1024)

V=

1024 сокращается получаем

V=

8 и 768 сокращаются

V= 

24 и 1024 можно сократить на 4

V= 

6 и 256 еще сократить можно на 2

V= 

Думаю хватит сокращений, теперь просто посчитаем 

V=  = 2,25 Мб

Var  massa: array [1..30] of real;
  i, n: integer;
  sum: real;

begin
  Write('Сколько учеников в подгруппе? ');
  Readln(n);
  Writeln('Введите вес учеников');
  for i := 1 to n do   begin
    readln(massa[i]);
    sum := sum + massa[i]
  end;
    Writeln('Средий вес ученика подгруппы: ', sum / n);
end.

Если известно что их 26, то можно написать так

var  massa: array [1..26] of real;
  i: integer;
  sum: real;

begin
  Writeln('Введите вес учеников');
  for i := 1 to 26 do   begin
    readln(massa[i]);
    sum := sum + massa[i]
  end;
    Writeln('Средий вес ученика подгруппы: ', sum / 26);
end.