РЕБЯТ ПОЖАЛУЙСТА ОЧЕНЬ...

РЕБЯТ ПОЖАЛУЙСТА ОЧЕНЬ НА ЗАВТРА НАДОООО!!! Напишите программу, которая определяет полиндром четырехзначное число или нет. Можно в Паскалеплиз!

 

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.