Определите, является ли не более чем четырехзначное число k симметричным (например, 1331 или 0550). На вход программе подается целое число k (0 k 9999). Выдайте 1 при положительном ответе на вопрос задачи и любое другое целое число — в противном случае.

vara:integer;beginreadln(a);If (a<10000) and (a>=0) thenIf (a>999) thenIf ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) thenwriteln('1')elsewriteln('2')elseIf (a>99) and (a<1000) thenIf ((a div 100)=(a mod 10)) thenwriteln('1')elsewriteln('2')elseIf (a>9) and (a<100) thenIf ((a div 10)=(a mod 10)) thenwriteln('1')elsewriteln('2')elsewriteln('1') elsewriteln('Неправльное число');end.Большое немного решение, может можно и поменьше, но так точно правильно