Ответ:

(Обозначим: n - вводимое число; m - дубликат числа n; а - перевертыш числа n; i - переменная цикла для создания перевертыша.)

program prim3;

uses crt;

var n, m, a, i: integer;

begin

clrscr;

(Введем четырехзначное целое число.)

writeln('N<=9999'); readln(n)

(Запоминаем введенное целое число и задаем начальное значение перевертыша.)

m:=n;а:=0;

(Организуем цикл с параметром от 1 до 4.)

for i:=l to 4 do

(Находим перевертыш числа N)

begin

а:=а*10+ m mod 10; m:= m div 10;

end;

(Если A=N, то данное число является перевертышем.)

if a=n then writeln('DA!')

else writeln('NO');

readln;

end.