Проверить истинность высказывания: «Данное число читается одинаково слева направо и справа налево» — Pascal(Паскаль)

Program Boolean23;

Var
  N, a, b, c, d: Integer;

Begin
  ReadLn(N);
  a := (N Div 1000) Mod 10;
  b := (N Div 100) Mod 10;
  c := (N Div 10) Mod 10;
  d := N Mod 10;
  WriteLn((a = d) And (b = c));

end.