Как составить высказывание ''зимой большинство деревьев сбрасывает листву'' по правилу ''если-то''?

если (пора года = зима) то

большинство деревьев сбрасывает листву

В случае, если пора года принимает значение true (истина), выполняется блок после ключевого слова "то", в ином случае ничего не происходит (по условию)

Дано:
Разрешающая сканера 600 х 600 dpi.
Размер 10см x 15см.
Глубина цвета - 3 байта.

Найти:
Каков информационный объём этого файла?

Решение:
Вначале переводим глубину цвета из байт в биты
3 байта * 8бит в байте = 24 бит

Вычисляем разрешение сканера в 1 дюйме квадрат
600*600 = 360 000 пикселей в 1 дюйм^2

Переводим размер картинки из квадратных сантиметров в квадратные дюймы.
10см = 3.937дюйма
15см = 5,906дюйма
10*15=150 см^2 = 3,937 * 5,906 = 23,25 дюйм^2

Вычисляем количество пикселей в изображении
23,25 дюйм^2 * 360 000 пикселей в 1 дюйм^2 = 8 370 000 пикселей

Информационный объём вычисляем по формуле
количество пикселей * глубину цвета =
8 370 000 пикселей * 24 бит = 200 880 000 бит.

Переводим в байты делением на 8.
25 110 000 байт
или же делим на 1024*1024 чтобы получить количество мегабайт
23,95 Мегабайт

ответ:
Информационный объём сканированного изображения =
25 110 000 байт или 23,95 Мегабайт

Const   max=24;
var     M:array[1..max] of integer;
        i,j,num:byte;
        X:integer;
        
procedure readArray();
var     i:byte;
begin
  Write('Введите длину массива M');
  Readln(num);
  for i:=1 to num do begin
    Write('M[',i,']=');
    Readln(M[i]);
  end;
  Writeln();
end;
        
begin
  readArray();

  Writeln('Задача: Найти количество элементов, модуль которых меньше X');
  Write('Введите X=');
  Readln(X);
 
  j:=0;
  for i:=1 to num do
    if Abs(M[i]) < X then
      j:=j+1;
      
  Writeln();
  Writeln(j, ' элементов, модуль которых меньше ',X);
end.