Дано трехзначное число. напишите программу, которая определяет: является ли число "перевертышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево. 123 - нет 121 - да 222 -да

Пусть число  будет а1, а2, а3.
число а2  -нас не интересует,  т.к. оно на месте справа - налево и наоборот.
Сл-но исследует а1 и а3
 программа 
берем а1 
а1=а3 -  если да ,  то число подходит - 
если нет ,  число не  подходит - переходим к следующему.
Вот и всё.
запишите этот алгоритм в предлагаемом Вам языке.
Успехов

Program prog;
Uses crt;

var a: integer;

begin
clrscr;

Write('Введите трехзначное число: ');
readln(a);

if (abs(a)>99) and (abs(a)<1000) then
   if ((a mod 10)=(a div 100)) and (a>0) then
   writeln('Перевертыш')
   else
   writeln('Не перевертыш')
else
    writeln('Неверное число');
end.