1. Дано трехзначное число. Выяснить, является ли оно палиндромом ("перевертышем"), то есть таким числом, десятичная запись которого читается одинаково слева направо и справа налево

program zz1;

var a, k, s:integer; / / задаем переменные целого типа

begin

write (' введите заданное трехзначное число '); / / вводим число с клавиатуры

read (k);

a:=k div 100; / / получаем первую цифру заданного числа

s:=k mod 10; / / получаем последнюю цифру заданного числа

if a = s / / проверяем, если первая цифра числа равна последней, то

then writeln (' число является перевертышем ') / / выводим один ответ

else writeln (' число не является перевертышем '); / / иначе, выводим другой ответ

end.