Решить загадку, информативную

А)На CD-диске размером 700 мегабайт может поместиться 700 Мб : 4 Мб = 175 музыкальных файлов, каждый из которых размером не более 4 Мб. Здесь мегабайты можно сразу делить на мегабайты, а вот при работе с разными объёмами байтов лучше сначала переводить все в байты, а потом выполнять с ними различные арифметические операции.
б) На флешке размером 4 гигабайта может поместиться 4 000 000 000 : 3 508 771, 93 = (сокращаем по три нуля в делимом и в делителе) = 4 000 000 : 3 508 = 1 139,99 фото = (округляем) 1 140 фото, каждое из которых размером не более 3,5 Мб.

Var n:integer;
begin;
readln(n);
case n of
0:writeln('zero');
1:writeln('one');
2:writeln('two');
3:writeln('three');
4:writeln('five');
6:writeln('six');
7:writeln('seven');
8:writeln('eight');
9:writeln('nine');
else writeln('Some number');
end;
end.
2.var n:integer;
begin;
readln(n);
case n of
1:writeln('January');
2:writeln('February');
3:writeln('March');
4:writeln('April');
5:writeln('May');
6:writeln('June');
7:writeln('July');
8:writeln('August');
9:writeln('September');
10:writeln('October');
11:writeln('November');
12:writeln('December');
else writeln('Some number');
end;
end.