ЗА БЫСТРЫЙ ОТВЕТ
А) Найти сумму ряда:
S=(5/10*9*8)+(5/9*8*7)+….+(5/3*2*1).
В) Найти произведение ряда:
Р=(0,2/0,5)*(0,6/0,5)*(1,0/0,5)*….*(4,2/0,5).
С*) Вводится 8 целых чисел с клавиатуры. Подсчитать количество отрицательных среди введенных.​

А) не знаю

Б) тоже не знаю

С) это может быть не правильным  

Uses crt;

var

a:real;

k, i:integer;

begin

for i:=1 to 8 do begin

readln (a);

if a<0 then

k:=k+1;

end;

write (k)

end.

Объяснение:

Извини что не смог

Короче в интернете ты не найдёшь ответы. Тебе придётся либо самому прочитать учебник и понять всё, либо попросить у друзей, либо списать у одноклассников. Выбор за тобой.