VIết chương trình nhập biển số bất kì có bốn số rồi kết luận, đó có phải là biển số xe ngũ kinh (gồm năm chữ số giống nhau) hay không

Program BTT;
Uses crt;
Var n: longint;

Function ktra(b: longint): boolean;
Var k: byte;
Begin
        k:=b mod 10;
        b:=b div 10;
        While b<>0 do
                If b mod 10 <> k then exit(false)
                Else b:=b div 10;
        exit(true);
End;

Begin
        Clrscr;
        Write('Nhap so bat ki: '); Readln(n);
        If ktra(n) then Write('Phai')
        Else Write('Khong phai');
        Readln
End.

program bien_so_dep;

uses crt;

var a,dv,ch,tr,ng:integer;

begin

clrscr;

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

dv:=a mod 10;

ch:=a div 10; ch:=ch mod 10;

tr:=a div 100; tr:=tr mod 10;

ng:=a div 1000; ng:=ng mod 10;

if dv=ch=tr=ng then writeln('day la bien so xe ngu quy')

else writeln('day khong la bien so xe ngu quy);

readln;

end.