Найдите значения Y(X): Y:=x^2-5, если Х лежит в промежутке от 1 до 20

//Pascal ABC.NET v3.1 сборка 1172

Const
 n=4;
 m=4;

Var
 ar:array[1..n,1..m] of integer;
 i,j:integer;
begin
 randomize;
 writeln('First matrix:');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      ar[i,j]:=random(100);   
   write(ar[i,j]:4);
      if ar[i,j] mod 3=2 then inc(ar[i,j]);
     end; 
    writeln;
   end;
 writeln('Final matrix:');
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(ar[i,j]:4);
  writeln;
 end;
end.

Пример вывода:
First matrix:
  20  80   1  69
  25  77  97   3
  32  56  97  23
  99  81  12  82
Final matrix:
  21  81   1  69
  25  78  97   3
  33  57  97  24
  99  81  12  82

Запомни: в 1 байте 8 бит, в 1 Кбайте 1024 байт, 1 Мегабайте = 1024 кбайт, 1 Гигабайт = 1024 мегабайт.
Исходя из этого имеем (приведём всё к битам):
1) 5 бит
2) 15 байт = 15*8 бит = 120 бит
3) 1024 килобайт = 1024*1024 байт = 1048576 байт = 1048576 *  8 бит = 8388608 бит
4) 1024 мегабайт = 1024*1024*1024*8 бит = 8589934592 бит
5) 15 килобайт = 15*1024*8 бит = 122880 бит

Таким образом:
5 бит → 15 байт → 15 килобайт → 1024 килобайт → 1024 мегабайт

(хотя здесь и вычислять ничего не нужно - всё итак очевидно и без расчётов)