Составить программу, печатающую значение true, если указанное высказывание является истинным и false- в противном случае

а) все цифры данного четырёхзначного числа N различны

Var N:integer;r1,r2,r3:byte;BeginWriteLn('Введите четырёхзначное число');ReadLn(N);r1:=N div 1000;r2:=(N div 100) mod 10;r3:=(N div 10) mod 10;N:=N mod 10;Write((r1<>r2)and(r1<>r3)and(r1<>N)and(r2<>r3)and(r2<>N)and(r3<>N))End.