Составить программу, выводящую на экран все натуральные трехзначные числа, делящиеся без остатка на 17, сумма цифр некоторых равняется 11

  for (double i = 100; i < = 999; i++ ) // начинаем перебор всех трёхзначных чисел от 100 до 999            { double s = i % 17; // узнаём остаток числа от деления на 17        if (s == 0) console.writeline(i); // если остаток равен 0 тогда выводим это число            }                           console.readline();

Var  a: array[1..18] of integer;   i,n,n2,max: integer; begin  for i: =1 to 18 do begin  case i of  1..6: begin write('введите ',i,'-ую оценку по обязательной программе '); readln(a[i]); n: =n+a[i]; if i=6 then begin max: =n; n: =0; n2: =1; end; end;   7..12: begin write('введите ',i-6,'-ую оценку по короткой программе '); readln(a[i]); n: =n+a[i]; if i=12 then begin if n> max then begin max: =n; n2: =2; end; n: =0; end; end;   13..18: begin write('введите ',i-12,'-ую оценку по произвольной программе '); readln(a[i]); n: =n+a[i]; if i=18 then begin if n> max then begin max: =n; n2: =3; end; n: =0; end; end;   end;   end;   case n2 of  1: write('лучшая оценка по обязательной программе = ',max);   2: write('лучшая оценка по короткой программе = ',max);   3: write('лучшая оценка по произвольной программе = ',max);   end; end.

// pascalabc.net 3.4.2, сборка 1785 от 06.09.2018

// внимание! если программа не работает, обновите версию!

begin

  var (m,n): =(3,readinteger('n ='));

  seqgen(n-1,m,t-> begin result: =t+m; m+=1 end)

      .aggregate(biginteger(,q)-> p*q).println

end.

n = 5

2700

n = 92

2905717351708908985405643744987697767130796956644732769142761496541317116624931720391311988753812039943077115478561297954388733569194661753822436538090873756174074892748228397527408937781819534979620536526957830995968000000000000000000000000000000000000000000