Информатика 10 класс.лабораторная работа 1 1.записать арифметические выражения на алгоритмическом языке (проходим паскаль) 2.программирование формул 3.вычисление корней ниже прикрепляю фото и примеры их выполнения(но можно делать не так)

Так, как размер одного символа составляет 1 бит, то размер 2000 символов равен 2000 бит. Далее:
1)Разберёмся с размерностью жёсткого диска: 
Если 1 байт=8 бит, то 1 килобайт=1024 байта=1024*8 бит=8192 бит, а 1 мегабайт=1024 килобайта=1024*8192 бит=8388608 бит. Разобрались.
Если размер реферата 2000 бит, то можно узнать сколько рефератов вместит этот жёсткий диск:
    рефератов.
2)Поступаем аналогичным методом:
1 килобайт=8192 бит.
Тогда съёмный диск вместит =4 реферата.

Далее нужно определить время печати при данной скорости 3200 бит/сек.
Так как размер реферата равен 2000 бит, то он распечатается за  секунды.

Const
  n = 16;

var
  A, Y: array[1..n] of integer;
  i, m: integer;
  S: longint;

begin
  Write('Введите число элементов в массивах m<17: ');
  Readln(m);
  if not (m in [1..16]) then m := 16; { защита от дурака }
  Randomize;
  //Write('Элементы массива: ');
  S := 0;
  for i := 1 to m do
  begin
    A[i] := Random(51) - 25;
    Y[i] := Random(41) - 20;
    S := S + A[i] * Y[m - i + 1]
    //Write(x[i]:5)
  end;
  if S < 24 then Writeln('Искомая сумма равна ', S)
  else begin
    Write('Массив A: ');
    for i := 1 to m do Write(A[i]:4);
    Write(#13#10, 'Массив Y: ');
    for i := 1 to m do Write(Y[i]:4);
    Writeln
  end
end.

Тестовое решение:

Введите число элементов в массивах m<17: 0
Массив A:    6  25   9  -4  11  10 -18  11  18 -11 -24   1  13  -3 -10   0
Массив Y:    1   0   6   9  14 -14   3  -6 -17 -19  11  16  11 -20   5  19

Введите число элементов в массивах m<17: 10
Массив A:    1   2   7   5   9 -16 -23  -4   5  -2
Массив Y:   -3  -5 -12 -20   2   1  -3  18  19 -17

Введите число элементов в массивах m<17: 10
Искомая сумма равна 1