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

begin
  var арифм := АрифметическаяПрогрессия(1,2,20);
  арифм.Вывести;
  арифм.Сумма.Вывести;
  var геом := ГеометическаяПрогрессия(1,2,10);
  геом.Вывести;
  геом.Сумма.Вывести;
  var случай := СлучайнаяПоследовательность(10,1,100);
  случай.Вывести;
  Вывести(случай.Минимум,случай.Максимум);
end.