uses crt;
var chuc_nghin, nghin, tram, chuc, don_vi, n : longint;
begin
clrscr;
write('nhap so co 5 chu so :');readln(n);
chuc_nghin := n div 10000;
nghin := (n - (chuc_nghin * 10000)) div 1000;
tram := (n - (chuc_nghin * 10000) - (nghin * 1000)) div 100;
chuc := (n - (chuc_nghin * 10000) - (nghin * 1000) - (tram * 100)) div 10;
don_vi := n - (chuc_nghin * 10000) - (nghin * 1000) - (tram * 100) - (chuc * 10) ;
if (chuc_nghin = nghin) and (nghin = tram) and (tram = chuc)
and (chuc = don_vi) and (don_vi = chuc_nghin) then
writeln(n,' la bien so ngu linh')
else writeln(n,' khong la bien so ngu linh');
readln
end.

uses crt;

var a:string;

       i,S:integer;

begin

write('nhap a:');readln(a);

S:=0;

for i:=1 to 5 do if a[i]=5 then S:=S+1;

if S=5 then writeln('Day la bien so xe ngu linh') else writeln('Day ko phai bien so xe ngu linh');

readln;

end.

P/S:tại mk ko bt cái câu 5 nó trình bày như nào vs cả mk ko có sách nên mk lm cách này nhé!