В следующих высказываниях выделите простые, обозначьте каждое буквой. Запишите составное высказывание с букв и знаков операций:
a.Не все числа делятся на три
b.Число 315 делится на 3 и на 5
c.Число 315 делится на 5, хотя делится на 10.
d.Число 315 делится на 3, а на 8 не делится.
e.Число может быть или четным, или нечетным.

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

Большую папку-тетрадь со сьемными листами и к ней листы-разграничители разного цвета (очень удобно разграничить все предмет и 100 тетрадей не надо заводить) , пару-тройку общих тетрадей для семинарских заданий, ручки, маркеры (обязательно, пригодится перед экзаменами (сразу главное выделять)) , калькулятор маленький (опять же для семинаров) , пенал (или можно возпользоваться карманом сумки))) , блок листов для принтера (для рефератов, курсовых и пр.) , файлы пачку, степлер и антистеплер. Ну вроде все, остальное по мере необходимости (типо папок для курсовых) . Да и дешевле купить свой принтер, чем печатать за платно каждый реферат.