В каком из операторов цикла допущена ошибка?

ответ: а)

В первом цикле выполнится только первая строчка, благодаря синтаксису Паскаля. Чтобы выполнилась и вторая, нужно после do написать begin и в конце end; .

Ошибка в В s:=s*i вотак мама ка лутшая

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.

такой адресс получается