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.