var a,b,c,d,i:integer;
beginreadln(i);if (i>999) and (i<10000) thenbegind:=i mod 10;c:=(i div 10) mod 10;b:=(i div 100) mod 10;a:=(i div 1000) mod 10;if (a=d) thenif (b=c) thenwriteln(i,',este un numar polidron');endelse writeln('NU ESTE DIN 4 CIFRE');end.