program z5_42;
var a,n,b,k :integer;

begin
write('vvedite cislo n');
read(n);k:=0;
b:=n;
while b>10 do
b:=b div 10;
a:=n;
while a>10 do
a:=a mod 10;

if b=a then writeln(' ravno')
else writeln('neravno');
readln;
end.