написать программу дана числовая последовательность -1,1,3,5... Найти произведение первых 30 членов этой последовательности. урок информатики

uses crt;var ch,a:integer;

begina:=0;for i:=1 to 30 dobeginreadln(ch);a:=a*ch;end;writeln(a);readln;

end.