// PascalABC.NET 3.6.3
begin
var (a, b) := ReadInteger2('Введите a и b');
(a..b).Select(p -> p + '-' + p * p).PrintLines
end.
// PascalABC.NET 3.6.3
begin
var (a, b) := ReadInteger2('Введите a и b');
(a..b).Select(p -> p + '-' + p * p).PrintLines
end.