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

Var a,b,c:integer;
       begin
read(a);
b:=a mod 100;
a:=a div 100;

c:=b div 10;
b:=b mod 10;
b:=b*10+c;

if a=b then write ('true');
if a<>b then write ('false');
end.