<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
if s=s.Inverse then Writeln('Палиндром')
else Writeln('Не палиндром')
end.
<u>Примеры</u>
мадам
Палиндром
аргентинаманитнегра
Палиндром
12345654231
Не палиндром
1)Пойти на кассу и узнать на какие ряды есть места(на фильм ОНО).
2)Если на фильм ОНО места на первый ряд, то купить билеты и узнать когда будет фильм.
3)Если есть места на фильм Напарник во втором ряду,то купить билеты и узнать когда начнётся.
4)Когда наступит время начала фильма занять места в зале.
проверяем если n нечетное и n=8 то 31 день
если n четное и n не равно 2 то 30 дней
если n=2 И a=0 то 28 дней
если n=2 И a=1 то 29 дней