Здравствуйте, помогите решить в паскале:
1) Найти произведение первых натуральных 10-ти чисел кратных 6.
2) Вывести 25 натуральных чисел кратных 7. Найти их результирующую сумму.

Спасибо большое!

Пожалуйста

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

 SeqGen(10, 6, t -> t + 6).Aggregate(int64(1), (p, q)-> p * q).Println;

 SeqGen(25, 7, t -> t + 7).Sum.Println

end.

Результат219419659468800 2275 2) "Школярский вариант"

(для тех, у кого учителя в развитии застряли в Паскале образца 1983 года)

var

 i, s: integer;

 p: real;

begin

 p := 1;

 for i := 1 to 10 do

   p := p * i * 6;

 Writeln(p);

 s := 0;

 for i := 1 to 25 do

   s := s + i * 7;

 Writeln(s)

end.

3) "Школопетский вариант"

(для тех, у кого голова, чтобы "в нее кушать")

var

 i, s, n: integer;

 p: real;

begin

 p := 1;

 n := 0;

 i := 1;

 while n < 10 do

 begin

   if i mod 6 = 0 then

   begin

     p := p * i;

     Inc(n)

   end;

   inc(i)

 end;

 Writeln(p);

 s := 0;

 n := 0;

 i := 1;

 while n < 25 do

 begin

   if i mod 7 = 0 then

   begin

     s := s + i;

     Inc(n)

   end;

   inc(i)

 end;

 Writeln(s)

end.