Найти сумму всех предшествующих введенному числу четных натуральных чисел

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

PascalВыделить код

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

begin
  readln(n);
  Itog:=0;
  if n mod 2=0 then
               begin
                 for j:=1 to n-1 do
                  if j mod 2=0 then Itog:=Itog+j;
               end
  else
    begin
      i:=1;
      Itog:=1;
      for j:=1 to n-1 do
       if j mod 2=1 then Itog:=Itogj;
    end;
end;

Не могу разобраться как его вставить в основную программу. Помогите, пожалуйста