Mail

В этот день много лет назад...
23 октября. В 1768 году (257 лет назад) - (12.10) Доктор Димсдейл делает Екатерине II прививку против оспы. Прививка делается от семилетнего отрока Александра Маркова, которому пожалуют дворянство и новую фамилию - Оспеин. Это событие даст толчок к началу массовых прививок против оспы по всей стране. Уже через месяц прививка будет сделана наследнику престола Павлу Петровичу, а чуть позднее - 140 придворным. За этим последует массовая кампания по прививкам, а врачи, младший медицинский персонал и священники, участвующие в проведении вакцинации, будут награждены специальными памятными медалями. Английский врач Димсдаль, делающий прививку, получит баронский титул, звание лейб-медика, действительного статского советника и громадную по тем меркам пенсию в 500 фунтов стерлингов в год.

Turbo Pascal Documentation

Функция ParamCount

     Функция: Возвращает число параметров,  переданных  в  в
командной строке.
     Описание: ParamCount
     Тип результата: Слово (word).
     Примечания: Разделителями служат пробелы и символы  та-
буляции.
     Прочее: См. также функцию ParamStr.
     Пример:

begin
   if ParamCount < 1 then
      Writeln('В командной строке нет параметров');
   else
      Writeln(ParamCount,' параметров');
end.