program salaryManager (input, output);

procedure initialize;
begin
     writeln('Executing procedure initialize');
end;

procedure displayAll;
begin
     writeln('Executing procedure displayAll');
end;

procedure inputSalary;
begin
     writeln('Executing procedure inputSalary');
end;

procedure displayRanges;
begin
     writeln('Executing procedure displayRanges');
end;

function findMin: real;
begin
     writeln('Executing function findMin');
     findMin := 0;
end;

function findMax: real;
begin
     writeln('Executing function findMax');
     findMax := 0;
end;

function calculateAverage: real;
begin
     writeln('Executing function calculateAverage');
     calculateAverage := 0;
end;

begin
     var num : real;
     writeln('Starting the main procedure');
     initialize;
     inputSalary;
    displayAll;
    num := findMin;
    writeln('Return value of findMin...', num);
    num := findMax;
    writeln('Return value of findMax...', num);
    num := calculateAverage;
    writeln('Return value of calculateAverage...', num);
    displayRanges;
    writeln('End of the main procedure');
end.