Написать программку, которая проверяет последующий факт: Все числа данного четырехзначного числа

var n,a,b,c,d:integer;

begin

readln(n);

a:=n mod 10;

b:=(n div 10) mod 10;

c:=(n div 100) mod 10;

d:=n div 1000;

if((a-blt;gt;0)or(c-dlt;gt;0)or(a-dlt;gt;0)) then writeln('Числа введённого четырёхзначного числа разны') else

writeln('Числа введённого четырёхзначного числа одинаковы');

end.