program test; var a : array[1..10]of integer; procedure proc(b:array[k..l:intege
r]of integer); begin   write(b[3]);   b[3]:=100;   write(b[3]); end;begin  a[3]:
=45;  write(a[3]);  proc(a);  write(a[3]);end.