РЕБЯТ ПОЖАЛУЙСТА ОЧЕНЬ НА ЗАВТРА НАДОО! Напишите программу, которая определяет…

var n: integer; BEGIN read (n); if (n > 9999 or n<1000) then writeln ('Вы дурак') else begin if (n mod 10=n div 1000 and n mod 100 div 10=n div 100 mod 10) then writeln ('Полиндром') else writeln ('Нет'); end; END.