ПООМГИТЕ ПЛИИИЗ!С клавиатуры вводятся числа до тех пор пока сумма этих чисел не превысится 300. Найдите произведение нечетных чисел.найдите кол-во отрицательных чисел.

uses crt;Var a,x1,x2:integer;Beginx1:=1;x2:=0;readln(a);While a<300 do      Begin      if (a mod 2<>0) then x1:=x1*a;      if (a<0) then x2:=x2+1;      readln(a);      end;Writeln('Произведение нечётных чисел=', x1);Writeln('Кол-во отрицательных чисел=' , x2);readln;end.