Mail

В этот день много лет назад...
22 декабря. В 1942 году (83 года назад) - Указ Президиума Верховного Совета СССР об учреждении медалей: "За оборону Ленинграда", "За оборону Одессы", "За оборону Севастополя", "За оборону Сталинграда".

Turbo Pascal Documentation

Функция ParamCount

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

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