Подсчитай количество отрицательных чисел среди a,b,c. Алгоритм,не паскаль

Август Кекуле
Август Кекуле - немецкий химик мирового
значения, открыл химическую формулу
бензола. Его избрали почетным членом многие
академии мира, с его мнением считались не
только ученые, но и промышленники.
Просмотров: 9437
Адольф фон Байер
Адольф фон Байер - немецкий химик,
анализируя обратный процесс, получение
индиго путем окисления изатина, впервые
сумел синтезировать индиго, сделав, таким
образом, возможным его промышленное
производство.
Просмотров: 6398
Александр Михайлович Бутлеров
Александр Михайлович Бутлеров - русский
химик, открытая им теория химического
строения служит теперь принципиальной
основой всех без исключения современных
разделов синтетической химии.
Просмотров: 11279
Альфред Вернер
Альфред Вернер - немецкий химик, открыл
оптически активные неорганические изомеры -
соединения кобальта, хрома, железа. Это было
крупным успехом дальнейшего развития
неорганической химии.
Просмотров: 6849
Антуан Лоран Лавуазье
Антуан Лоран Лавуазье — французский химик,
объяснил факт горения, — целый мир явлений
окисления, происходящих всегда и всюду — в
воздухе, земле, организмах — во всей мертвой
и живой природе.
Просмотров: 8849

Program G;
Uses Crt;
Var count, num, ch: integer;
Begin 
 ClrScr; 
 Writeln('Год високосный? 1 - да, 0 - нет'); 
 Readln(Ch); 
 If ch=1 then 
  Begin   
   Writeln('Введите номер месяца'); 
   Readln(num);   
   Сase num of  
    1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.'); 
    4, 6, 9, 11: writeln('В месяце 30 дней.'); 
    2: writeln('В месяце 29 дней');   
   else writeln('Некорректный ввод данных')   
  End; 
 End  
 Else if ch=0  then 
  Begin   
   Writeln('Введите номер месяца');    
   Readln(num);
   Сase num of    
    1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');   
    4, 6, 9, 11: writeln('В месяце 30 дней.');   
    2: writeln('В месяце 28 дней');   
   else writeln('Некорректный ввод данных')   
   End; 
  End 
 Else writeln('Некорректный ввод данных');
Readln; 
End.