составить цикл : найти все трехзначные числа, в которых есть одинаковые цифры
пожалуйста помогите!!

var i,j,k: integer;begin  for i:=1 to 9 do  for j:=0 to 9 do  for k:=0 to 9 do  if (i=j) or (i=k) or (j=k) then   write(i,j,k,' ');end.