var a: integer;
begin
writeln('Введите № месяца');
readln(a);
case a of
1: begin writeln('Январь Зима'); end;
2: begin writeln('Февраль - Зима'); end;
3: begin writeln('Март - Весна'); end;
4: begin writeln('Апрель - Весна'); end;
5: begin writeln('Май - Весна'); end;
6: begin writeln('Июнь - Лето'); end;
7: begin writeln('Июль - Лето'); end;
8: begin writeln('Август - Лето'); end;
9: begin writeln('Сентябрь - Осень'); end;
10: begin writeln('Октябрь - Осень'); end;
11: begin writeln('Ноябрь - Осень'); end;
12: begin writeln('Декабрь - Зима'); end;
else writeln('Ошибка. Введенный номер не является номером какого-либо месяца');
end;
readln
end.
Объяснение:
1 байт = 8 бит, 1 Кбайт=1024 байта, 1 Мбайт=1024 Кбайта, 1 Гбайт=1024 Мбайта.
5120 Мбит = 5120/(8×1024³) ≈ 0.596 Гбайт