program October3 (input, output);

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


var myArray : anArray;
    anotherReal : real;
    myChar  : char;
    myString: String;
    counter : integer;
    myReal  : real;

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

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


begin
    myReal := 8.23;
    anotherReal := 256.3;
    myChar := '?';
    myString := 'Ha ha this a way, ha ha that a way ';
    writeln (' before filling array myChar is ', myChar);
    writeln (' before filling array myString is ', myString);
    writeln (' before filling array anotherReal is ',anotherReal);

    fillArray(myArray, myReal, 5);

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

    writeln (' after filling array myChar is ', myChar);
    writeln (' after filling array myString is ', myString);

    writeln (' program has ended normally ');


  end.