codice:
program stampaivalorida1a100 (output);

type ins=array[1..100] of integer;

var a:ins;
    i:integer;
{procedure}
procedure stampa(var a:ins);
begin
for i:=1 to 100 do writeln(a[i]);
end;

{inizio main}
begin
for i:=1 to 100 do a[i]:=i;
stampa(a);
readln;
end.