Составить цикл : найти все трехзначные числа, в которых есть одинаковые цифры

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.