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

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.