Понеділок 1Вчимося чаклувати 2Вчимося літати 3Вчимося вибирати правильні чаклунські палички 4Вчимося за до магії прибирати у кімнаті Вівторок 1Вчимося перетворюватися на супер героїв 2Вчимося магії 3Вчимося літати 4Вчимося перетворюватися на супер героїв Середа 1Подоружуємо країнами 2Подорожуємо країнами 3Вчимося перетворюватися на супер героїв 4Вчимося літати на мітлах Четвер 1Вчимося літати на мітлах 2Вчимося з до магії їсти 3Вчимося прибирати у кімнатах за до магії 4Вчимося бути добрими П*ятнця 1Вчимося вибирати правильні чаклунські палички 2Вчимося перетворюватися на супер героїв 3Питаємо все Гаррі Потера 4Вчимося літати на мітлах
var dd,mm,gg:integer;
begin
readln(dd,mm,gg);
case dd of
1..5: writeln('начало');
6..14: writeln('первая половина');
15: writeln('середина');
16..25: writeln('вторая половина');
26..31: writeln('конец');
end;
case mm of
1: writeln('января');
2: writeln('февраля');
3: writeln('марта');
4: writeln('апреля');
5: writeln('мая');
6: writeln('июня');
7: writeln('июля');
8: writeln('августа');
9: writeln('сентября');
10: writeln('октября');
11: writeln('ноября');
12: writeln('декабря');
end;
if gg mod 4=0 then writeln ('високосный') else writeln('не високосный');
end.
---
var a:integer;
begin
readln(a);
writeln(a mod 10,a);
end.