program bien_so_xe;
uses crt;
var tn, nghin, tram, chuc, don_vi, n : longint;
begin
write('Nhap bien so xe 5 so: ');
readln(n);
tn := n div 10000;
nghin := (n - tn * 10000) div 1000;
tram := (n - tn * 10000 - nghin * 1000) div 100;
chuc := (n - tn * 10000 - nghin * 1000 - tram * 100) div 10;
don_vi := n - tn * 10000 - nghin * 1000 - tram * 100 - chuc * 10;
if (tn = nghin) and (nghin = tram) and (tram = chuc) and (chuc = don_vi)
then writeln('Chuc mung! Day la bien so ngu linh')
else writeln('Khong phai bien so ngu linh');
readln;
end.