Ввести с клавиатуры n-любых чисел ,найти количество отрицательных чисел( паскаль )

1.var 2.a, product : real; 3.i, n : integer; 4.begin 5.product: = 1; 6.readln(n); 7.for i : = 1 to n do begin 8.readln(a); 9.if a < 0 then 10.: = product*a; 11.end; 12. writeln(product: 0: 2);

Минимально требуемый объем равен 1600*1200*24 бит/пиксель = 46080000 бит = 5760000 байт = 5625 к байт = 5,5 мбайт подходит карта 64 мегабайта