Назовем билет с шестизначным номером красивым, если его номер одинаково читается с право на лева и с лева на право в промежутке 189980 до 205505

Program zadacha; var a, a1, a2, a3, a4, a5, a6:integer; beginreadln (a) ; if (a205505) then writeln ('Введите число не меньше 189980 и не превышающее 205505') ; a1:=a mod 10; a2:=a mod 100 div 10; a3:=a mod 1000 div 100; a4:=a mod 10000 div 1000; a5:=a mod 100000 div 10000; a6:=a div 100000; if (a1=a6) and (a2=a5) and (a3=a4) then writeln ('Счастливое') else writeln ('Несчастивое') ; end.