Выберите правильное имя файла 1) les info. 2) 1docum. 3) list.3.exe 4) informatika. txt

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.

чтобы потушить 8 нужно 1600 литров воды.желательно тушить по часовой