1(* 2 * Copyright (c) 1980, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)args.p 8.1 (Berkeley) 06/06/93 8 *) 9 10program argtest(input, output); 11var i : integer; 12 s : array[1..10] of char; 13begin 14 for i := 1 to argc - 1 do begin 15 argv(i, s); 16 writeln('arg ', i:1, ' = ', s); 17 end; 18 write('i? '); 19 readln(i); 20end. 21