program grades (input,output);

procedure introduction;
begin
   writeln('<<< Calling procedure introduction >>');
end;

procedure initialize;
begin
   writeln('<<< Calling procedure initialize >>>');
end;

function letterToGPA : integer;
begin
   writeln('<<< Calling procedure letterToGPA >>>');
   letterToGPA := 4;
end;

function findMin : char; 
begin
   writeln('<<< Calling function findMin >>>');
   findMin := 'F';
end;

function findMax : char; 
begin
   writeln('<<< Calling function findMax >>');
   findMax := 'A';
end;


procedure enterGrades; 
begin
   writeln('<<< Calling procedure enterGrades >>>');	   
end;

procedure display;
begin
   writeln('<<< Calling procedure display >>>');	   
end;

function findMean:real; 
begin
   writeln('<<< Calling function findMean >>>');	      
   findmean := 4.0;
end;

function equalDistribution : boolean;
begin
   writeln('<<< Calling function equalDistribution >>>');	         
   equalDistribution := true;
end;

function mostFrequentGrade : char;
begin
   writeln('<<< Calling function mostFrequentGrade >>>');	         
   mostFrequentGrade := 'A';;
end;

function findMode: char;
begin
   writeln('<<< Calling function findMode >>>');	         
   findMode := mostFrequentGrade;
end;

begin
   var mean : real;
   var mode : char;
   introduction;
   initialize;
   enterGrades;
   mean := findMean;
   mode  := findMode; 
   display;
 end.