Трёхзначные натуральные числа n и k (n < k). из чисел от n до k найти все, запись которых содержит ровно две одинаковые цифры. например, числа 266, 661, 767, 776 – содержат ровно 2 одинаковые цифры.

// PascalABC.NET 3.0, сборка 1128
begin
  var n:=ReadInteger('n=');
  var k:=ReadInteger('k=');
  for var i:=n to k do begin
    var s:=i.toString;
    if ((s[1]=s[2]) and (s[1]<>s[3])) or
      ((s[1]<>s[2]) and ((s[3]=s[1]) or (s[3]=s[2]))) then
        Write(i,' ')
    end
end.

Тестовое решение:
n= 318
k= 427
322 323 330 331 332 334 335 336 337 338 339 343 344 353 355 363 366 373 377 383 388 393 399 400 404 411 414 422 424