program aqrr;
uses crt;
const n=11;
var
y, a,c,b,d:integer;
begin
clrscr;
Write('Введите трехзначное число а=');
Readln(a);
b:=a div 100;
c:=(a div 10) mod 10 ;
d:=a mod 10;
begin
if (b<>c) and (b<>d)and (c<>d) then
writeln('Все чила различные ' )
else
write('Есть одинаковые цифры') ;
readln(c);
end;
end.