program noyabrz2;
uses crt;
var a,x,y,z:integer;
begin
clrscr;
for a:=100 to 150 do begin
x:=a mod 10; y:=(a div 10) mod 10; z:=a div 100;
if (x<>y) and (y<>z) and (x<>z) then writeln ('a=',a);
end;
readkey;
end.
uses crt;
var a,x,y,z:integer;
begin
clrscr;
for a:=100 to 150 do begin
x:=a mod 10; y:=(a div 10) mod 10; z:=a div 100;
if (x<>y) and (y<>z) and (x<>z) then writeln ('a=',a);
end;
readkey;
end.