даю 40б5.28-суретте берилген уйдин моделин куру ушин кандай куралдарды колдануга болады.

Что ты тут написала, это какой язык

1. Количество точек = 64*64.
Объем файла = 64*64*16 бит = 64*64*16/8 байт = 64*64*2 байт = 64*64*2/1024 Кбайт = 8 Кбайт

2. Размер цифрового моноаудиофайла измеряется по формуле:
     A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
44,1 кГц = 44100 Гц
 A = 44100*2*16 бит = 44100*2*16 / (8*1024) Кбайт = 172,265625 Кбайт ≈ 172,3 Кбайт

3. Общее количество символов для записи номеров = 20+10=30
Для кодирования одного символа необходимо log(2)30 ≈ 5 бит (2^5=32).
Для записи одного номера требуется 8*5 бит = 40 бит = 40/8 байт = 5 байт
Для хранения 50 номеров потребуется 50*5 байт = 250 байт

var a, b, c, d, min, max: integer;

begin

 // Min

 readln(a, b, c, d);

 if (a <= b) and (a <= c) and (a <= d) then min := a

 else if (b <= a) and (b <= c) and (b <= d) then min := b

 else if (c <= a) and (c <= b) and (c <= d) then min := c

 else if (d <= a) and (d <= b) and (d <= c) then min := d;

 // Max

 if (a >= b) and (a >= c) and (a >= d) then max := a

 else if (b >= a) and (b >= c) and (b >= d) then max := b

 else if (c >= a) and (c >= b) and (c >= d) then max := c

 else if (d >= a) and (d >= b) and (d >= c) then max := d;

   

 writeln('Min: ', min);

 writeln('Max: ', max);

end.