Дано двузначное число.выяснить является ли оно палиндромом то есть таким числом десятичная запись которого читается слева направо и справа налево

Var n:longint;
begin
  repeat
    write (N = );
    readln (n);
  until n in [10..99];
  if n = ((n mod 10)*10+n div 10) then writeln (Palindrom) else
    writeln (No palindrom);
end.