<-HOME <-FLOWCHART PROGRAM Number9; USES crt; TYPE tr=record emid:string; ename:string; esalary:integer; end; VAR f:file of tr; r:tr; max,min,avg,i,sum:integer; BEGIN clrscr; max:=0; min:=9999; i:=1; assign(f,'employee.dat'); reset(f); repeat while not eof(f) do begin readln(f,r); if (r.esalary > 5000) and (r.esalary < 10000) then begin writeln('EMID: ',r.emid); writeln('NAME: ',r.ename); writeln('SALARY: ',r.esalary); if r.esalary > max then max:=r.esalary; if r.esalary < min then min:=r.esalary; sum:=sum+r.esalary; i:=i+1; end; end; writeln('MAXIMUM: ',max); writeln('MINIMUM: ',min); avg:=sum/(i-1); writeln('AVERAGE: ',avg); writeln('--*PROGRAM BY MISS ORATHAI JAIYAH 4411063*--'); END.