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

Данное четырёхзначное число читается одинаково слева направо и справа налево.

var a,b,c:integer;       beginread(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.