program October3 (input, output);

type anArray = array [1..5] of real;


var myArray : anArray;
    counter : integer;
    myReal  : real;

procedure fillArray ( var someArray : anArray ;
                          someReal  : real;
                          size      : integer);
     var counter : integer;

BEGIN
   for counter := 1 to size do
      someArray[counter] := 2* counter * someReal;
   writeln (' on exit from the for loop 1 to 5,  counter is ', counter);
end;


begin
    myReal := 8.23;
(*    for counter := 1 to 5 do  *)
(*        myArray[counter] := counter * myReal;  *)

    fillArray(myArray, myReal, 5);

    for counter := 1 to 5 do
        writeln ('*',myArray[counter]:1:2,'*');




end.