Дан номер месяца года n. По номеру месяца определить, сколько дней в этом месяце. Принять, что в феврале 28 дней (Информатика) (написать код) ​

Program arrays;
var a:array [1..3,1..6] of integer;   
i,j:byte;
begin
for i:=1 to 3 do 
    for j:=0 to 1 do   
          begin   
                    a[i,1+3*j]:=random(101)+10;
                    a[i,2+3*j]:=random((1001)+100) div (i+2*j);
                    a[i,3+3*j]:=(random(101)+10) mod 10;   
           end; 
   for i:=1 to 3 do 
           begin 
                      for j:=1 to 6 do   
                                 write(a[i,j],'  '); 
                     writeln;   
         end;
 end.

//Если нужны пояснения - пишите

Запомни: в 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 мегабайт

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