пожалуйста!!!!!!Даны трёхзначные естественные числа n и k (n amp;lt; k). Из

// 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]lt;gt;s[3])) or
      ((s[1]lt;gt;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