Объясните плиз подробно этапы программы написаной в турбопаскале

Uses crt;
var n,x,y,z,t: integer;
l:boolean;
Begin
Clrscr;
Write ('1000');
Read(n);
x:=n div 1000;
n:=n mod 1000;
y:=n div 100;
n:=n mod 100;
z:=n div 10;
t:=n mod 10;
l:=(x<>y) and (x<>z) and (x<>t) and (y<>z) and (y<>t) and (z<>t);
Writeln('Утверждение-',l);
Readkey;
end.