pascal ABC.Вложенные циклы

[saharok]

Помогите кто чем может,плохо у меня с вложенными циклами...Заранее спасибо!))

1.Найти натуральное число из интервала от до , у которого количество делителей максимально. Если таких чисел несколько, то должно быть найдено:
1) максимальное из них;
2) минимальное из них;

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

[rubius2008]

2.

...
for i:=100 to 999 do begin
  str(i,s);
  if (s[1]<>s[2]) and (s[1]<>s[3]) and (s[3]<>s[2]) then write(i,' ');
end;
...

s - строка

[Serge_Bliznykov]

задача 2.

думаю, что в связи с темой ("вложенные циклы"), ожидается примерно такое решение:

for i:=1 to 9 do
  for j:=0 to 9 do
    for k:=0 to 9 do
      if (i<>j) and (j<>k) and (i<>k) then Write(i*100+j*10+k, ' ');

p.s. в данном коде можно и просто выводить три цифры: then Write(i,j,k, ' ');

[saharok]

Спасиб бооольшое)