uses Исполнители;


begin
  var арифм1 := АрифметическаяПрогрессия(1,2,20);
  арифм1.Вывести;
  арифм1.Сумма.Вывести;
  var посл2 := арифм1.Преобразовать(x->x*x);
  посл2.Вывести;
  var посл3 := посл2.Выбрать(x -> x mod 10 = 5);
  посл3.Вывести;
end.  
  