воскресенье, 6 ноября 2011 г.

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.