Выполнить по информатику в паскале: 1. выполнить произведение первых n нечетных чисел; 2. выведите на экран монитора квадраты первых n натуральных чисел

PascalABC.NET 3.3
begin
  var N := ReadInteger('Введите N:');
  Println('Произведение первых N нечётных чисел равно',
    1.Step(2).Take(N).Aggregate(BigInteger(1), (p, x) -> p * x));
  Println('Квадраты первых N натуральных чисел:');
  1.To(N).Select(x -> x * x).Print;
end.

Пример работы программы:
Введите N: 10
Произведение первых N нечётных чисел равно 654729075 
Квадраты первых N натуральных чисел: 
1 4 9 16 25 36 49 64 81 100