разработать на языке программирования Паскаль АВС функцию вычисления произведения трех чисел a, b, с, вещественные​

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (sn,pp,kp):=(0,1,0);
  var n:integer;
  repeat
    Read(n);
    if (n<0) and n.IsOdd then sn+=n
    else
      if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
  until n=0;
  if sn=0 then begin
    Writeln('Нет отрицательных нечетных чисел');
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
  else begin
    Writeln('Сумма отрицательных нечетных чисел: ',sn);
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
end.

Пример
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080

1.

а)

а = а - 4 = 7 - 4 = 3

b = -a = -3

c = -a + 2 * b = -3 + 2 * (-3) = -3 - 6 = -9

б)

b = a + 4 = 2 + 4 = 6

b = 1 - b = 1 - 6 = -5

c = -b + 3 * a = -5 + 3 * 2 = -5 + 6 = 1

2.

a)

b = 5? (Нет, 0)

b: = b + 1 = 0 + 1 = 1

a: = a * 3 = 1 * 3 = 3

b = 5? (Нет, 1)

b: = b + 1 = 1 + 1 = 2

a: = a * 3 = 3 * 3 = 9

b = 5? (Нет, 2)

b: = b + 1 = 2 + 1 = 3

a: = a * 3 = 9 * 3 = 27

b = 5? (Нет, 3)

b: = b + 1 = 3 + 1 = 4

a: = a * 3 = 27 * 3 = 81

b = 5? (Нет, 4)

b: = b + 1 = 4 + 1 = 5

a: = a * 3 = 81 * 3 = 243

б)

b = 0? (Нет, 3)

b: = b - 1 = 3 - 1 = 2

a: = a * 4 = 1 * 4 = 4

b = 0? (Нет, 2)

b: = b - 1 = 2 - 1 = 1

a: = a * 4 = 4 * 4 = 16

b = 0? (Нет, 1)

b: = b - 1 = 1 - 1 = 0

a: = a * 4 = 16 * 4 = 64