Составить программу вычисления суммы/произведения N элементов бесконечного числового ряда. Y=(-3)6(-9)12(-15)…

Уважаемая Ксения попробуйте данный код! должно все работать!

uses crt;
var a,b,c,d:integer;
begin
clrscr;
writeln('vvedite A');
readln(a);
writeln('vvedite B');
readln((IMG:style_emoticons/default/cool.gif);
writeln('vvedite C');
readln©;
writeln('vvedite D');
readln(d);
if not odd(a) or not odd((IMG:style_emoticons/default/cool.gif) or not odd© or not odd(d) then write('pravda')
else writeln('nepravda');
readln;
end.