Вводится целое число n. вывести для нечетных чисел от 1 до n произведение этих чисел, а для четных от 1 до n, вывести их сумму.

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln('Сумма четных: ',Range(2,n,2).Sum);
  Writeln('Произведение нечетных: ',
      Range(1,n,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.

Примеры
n= 10
Сумма четных: 30
Произведение нечетных: 945

n= 100
Сумма четных: 2550
Произведение нечетных: 2725392139750729502980713245400918633290796330545803413734328823443106201171875

n= 220
Сумма четных: 12210
Произведение нечетных: 1107777077219218863731176870556049213277080310011307546922058816496685355705579762805879646585202270946781726057710274499420058851200005273702334889222745707797723907366146060509882690145022444427013397216796875

Program n_7;var a,b,c,d,max,min:integer;function f(x,y,c,d:integer):integer;beginif (x>y) and (x>c) and (x>d) then begin max:=x; endelse if (y>c) and (x>d) then begin max:=y; endelse if (c>d) then begin max:=c; endelse begin max:=d; end;if (x<y) and (x<c) and (x<d) then begin min:=x; endelse if (y<c) and (x<d) then begin min:=y; endelse if (c<d) then begin min:=c; endelse begin min:=d; end;writeln('max=',max,'; min=',min,' pa3HocTb=',max/min,' B pa3ax');end;begin readln (a,b,c,d);f(a,b,c,d);readln;end.

На самом деле, когда числа выводят в столбик, их предполагают сравнивать между собой. Чтобы это делать быстро, числа нужно выровнять "по запятой". Но такого выравнивания нет.
Если числа целые, можно себе представить, что запятая находится правее последней цифры и мы приходим как раз к записи с выравниванием "по правому краю".
Если же числа нецелые, то мы размещаем их с одинаковым количеством знаков после запятой и при выравнивании "по правому краю" запятые опять же будут друг под другом.
В обоих вариантах числа легко сравнивать между собой по их самой левой позиции. Чем число больше, тем оно "длиннее".