РЕШИТЕ ВТОРОЕ ЗАДАНИЕ

Var   a: integer;begin  read(a);    if (a >= 1) and (a <= 31) then write(a,' ',1);  if (a >= 32) and (a <= 59) then write((a - 31),' ',2);  if (a >= 60) and (a <= 90) then write((a - 59),' ',3);  if (a >= 91) and (a <= 120) then write((a - 90),' ',4);  if (a >= 121) and (a <= 151) then write((a - 120),' ',5);  if (a >= 152) and (a <= 181) then write((a - 151),' ',6);  if (a >= 182) and (a <= 212) then write((a - 181),' ',7);  if (a >= 213) and (a <= 243) then write((a - 212),' ',8);  if (a >= 244) and (a <= 273) then write((a - 243),' ',9);  if (a >= 274) and (a <= 304) then write((a - 273),' ',10);  if (a >= 305) and (a <= 334) then write((a - 304),' ',11);  if (a >= 335) and (a <= 365) then write((a - 334),' ',12);  readln;  readlnend.

Для создания архива данных, будем использовать программу WinRar:

1. Открыть программу.
2. В главном меню нажать на вкладку - Команды, затем добавить файлы к архиву
3. Выбираем  директорию на которой хранится наш файл.
4. Настраиваем архив (формат. пароль  метод сжатия и т.д.).


1. Правой кнопкой мыши по файл, который хотим заархивировать.
2. Выбрать пунк Добавить к Архиву
3. Выбираем  директорию на которой хранится наш файл.
4. Настраиваем архив (формат. пароль  метод сжатия и т.д.).

Для создания CD/DVD-R,RWдиска с данными выполним следующие действия:
Используем программу ImgBurn
1. Приобретаем диск
2. Помещаем компакт-диск в привод
3. Выбираем соответствующие дальнейшие действия с нашим диском. Мы записываем информацию. Выбираем  "Записать Файла/Папки на диск"
4. Выбираем директорию хранения предварительной записываемой информации.
5. В правом блоке информации, проверяем размеры файлов, что бы не превышали размерности компакт-диска. 
6. Файл - Записать
5. Получаем отсчет о записи, удостоверяемся что запись без ошибок.