var N, i,j : integer;
C : array [1..5] of integer;
flag : boolean;
begin
readln (N);
i : =0;
repeat
i : = i+1; C [i] :=N mod 10;
N :=N div 10;
until N=0;
flag : =true;
for j: =1 to i div 2 do
if C [j] <>C[i-j] then
flag: =false;
if flag then writeln (' Да")
else writeln ("Нет");
end
задание к палиндрому