Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
15
Добавлен:
10.12.2013
Размер:
161 б
Скачать
program args2(output);
var
i : integer;
begin
for i := -1 to paramcount do
writeln('Program argument #', i:1, ' is "', paramstr(i), '"')
end.
Соседние файлы в папке samples