Программы паскаль!

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

А причем тут класс? Программирование сейчас начинают изучать в самых разных классах и по самым разным программам. Полный хаос...

Да у нас учитель ненормальный

// PascalABC.NET 3.2, сборка 1336 от 14.11.2016begin  Writeln(Range(7,70,7).Aggregate(biginteger(1),(i,j)->i*j))end.Результат1025046183571200// PascalABC.NET 3.2, сборка 1336 от 14.11.2016begin  Writeln(Range(1,1000,2).Count)end.Результат500