// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin var (a,b):=ReadInteger2('Введите два числа'); if a>b then Swap(a,b); Range(a,b).Select(x->x*x).Printlnend.ПримерВведите два числа 29 636 49 64 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841