program caray (output);

var i : integer;
    a : array [1..3] of integer;


procedure jim (b : array [lo..hi : integer] of integer);

var i : integer;

begin
 writeln;

 for i := lo to hi do 
 begin
   a [i] := i*4;
   b [i] := a[i]
  end
end;


begin
  jim (a);
  for i:= 1 to 3 do writeln (a[i])
end.