Программы паскаль! 1)найдите произведение чисел, кратных 7, от 1 до 70 2)найдите количество количество нечётных чисел от 0 до 1000

// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
  Writeln(Range(7,70,7).Aggregate(biginteger(1),(i,j)->i*j))
end.

Результат
1025046183571200

// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
  Writeln(Range(1,1000,2).Count)
end.

Результат
500