Mail

В этот день много лет назад...
23 апреля. В 1945 году (79 лет назад) - Гитлер лишает Геринга всех титулов и званий.

Turbo Pascal Documentation

Функция ParamCount

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

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