Реферат, выбранный на компьютере содержит 24 страницы, на каждой странице 72 строки, в каждой строке 48 символов. для кодирования символов используется кодировка кои-8, при которой каждый символ кодируется одним байтом. определитель информационный объём реферата решите умоляю

Обьем 1*48*72*24 = 82`944 байт = 81 кб

1. Дан массив a, состоящий из 8 элементов. Получить массив b, в котором b[i] = a[i]*a[i] (1 <= i <=8).
var a,b:array[1..8] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 8 do
begin
 a[i] := random(10);
 write (a[i], ' ')
 end;
writeln;
writeln('b:');
for i:=1 to 8 do
 begin
 b[i] := a[i]*a[i];
 write (b[i], ' ')
 end;
end.

Пример:
a:
2 9 7 5 2 0 8 7
b:
4 81 49 25 4 0 64 49

2.
var a:array[1..9] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 9 do
begin
 a[i] := random(50)+10;
 write (a[i], ' ')
 end;
writeln;
for i:=1 to 9 do
 if a[i] mod 2 = 0
  then writeln(a[i], ' - четное число')
  else writeln(a[i], ' - нечетное число')
end.

Пример:
a:
55 51 18 35 33 56 15 56 47 
55 - нечетное число
51 - нечетное число
18 - четное число
35 - нечетное число
33 - нечетное число
56 - четное число
15 - нечетное число
56 - четное число
47 - нечетное число

Using System;

public class MainClass
{
    public static void Main()
    {
        Console.Write("Введите количество элементов массива: ");
        int size = Convert.ToInt32(Console.ReadLine());
        int[] a = new int[size];
        for (int i = 0; i < size; i++) {
            Console.Write($"[{i}] = ");
            a[i] = Convert.ToInt32(Console.ReadLine());
        }
        int prev = a[0];
        for (int i = 1; i < size; i++) {
            if (a[i] <= prev) {
                Console.WriteLine("Последовательность не возрастающая");
                return;
            } else {
                prev = a[1];
            }
        }
        Console.WriteLine("Последовательность возрастающая");
        return;
    }
}