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.