// PascalABC.NET 3.2, сборка 1514 от 11.08.2017// Внимание! Если программа не работает, обновите версию!begin var (a,b):=ReadInteger2('Введите через пробел a и b:'); for var k:=a div 10 to b div 10 do begin var m:=10*k+k div 10; if m.between(a,b) then Print(m) endend.
ПримерВведите через пробел a и b: 507 940515 525 535 545 555 565 575 585 595 606 616 626 636 646 656 666 676 686 696 707 717 727 737 747 757 767 777 787 797 808 818 828 838 848 858 868 878 888 898 909 919 929 939