/* This is the second test program */ procedure myproc is vara, varb : integer; something : integer; varc[20] : integer; begin vara := 5; /* vara gets 5 */ varb := 3 * vara; /* varb gets 5*vara == 15 */ varc[11] := 11; for something in 1..20 loop writeln('Inside the loop'); end loop; end;