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

var    i,j,k:integer;begin for i:=1 to 9 do  for j:=0 to 9 do   if i<>j then    for k:=0 to 9 do      if (i<>k) and (j<>k) then  writeln(i*100+j*10+k)end.