ЯЗЫК ПАСКАЛЬ.Введя с клавиатуры 4- значное число определить является ли оно перевертышем.

var a: Integer;

begin

Read(a);

WriteLn((a div 1000 mod 10=a mod 10) and (a div 100 mod 10=a div 10 mod 10));

end.