program salaryManager (input, output);

procedure initialize (var employeeOne : real);
begin
     (* Set the employee's salary to a default starting value *)
     employeeOne := 0;
end;

procedure displayAll (employeeOne : real);
var
     i : integer;
begin
     i := 1;
     writeln('Salary of employee number ', i, ' is $', employeeOne:0:2);
end;

procedure inputSalary (var employeeOne : real);
var
     i : integer;
begin
     i := 1;
     write('Enter salary of employee no. ', i, ' $');
     readln(employeeOne);
end;

procedure displayRanges;
begin
end;

function findMin: real;
begin
     findMin := 0;
end;

function findMax: real;
begin
     findMax := 0;
end;

function calculateAverage: real;
begin
     calculateAverage := 0;
end;

begin
     var employeeOne : real;
     initialize(employeeOne);
     writeln('Initialized values for salaries');
     displayAll(employeeOne);
     writeln;

     inputSalary(employeeOne);
     writeln;
     writeln('List of employee salaries');
     writeln('-------------------------');
     displayAll(employeeOne);
end.