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.