Қазақстандық пошталық сервер қалай аталады

файл, правка, вид, вставка, формат, сервис, таблица, окно, справка.

21 24 27 30 33 36 39 42 45 48 

смотри блок-схему в приложенном файле

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.