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

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-b< > 0)or(c-d< > 0)or(a-d< > 0)) then writeln('цифры введённого четырёхзначного числа различны') else

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

end.

a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));

b = sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));

c = sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));

writeln("периметр = ",a+b+c);

s = {формула герона}