program kolhoz;
var
 name:array[1..5] of string;
 S,ur,srur:array[1..5] of real;
 Msrur:real;
 i,x:integer;
begin 
 Msrur:=0;
 for i:=1 to 5 do
  begin
   write('Введите название ',i,' района Рязанской области: ');
   readln(name[i]);
   write('Введите площадь посева в ',i,' районе Рязанской области: ');
   readln(S[i]);
   write('Введите количество урожая в ',i,' районе Рязанской области: ');
   readln(ur[i]);
   srur[i]:=ur[i]/S[i];
   if Msrur<srur[i] then
    begin
     x:=i;
     Msrur:=srur[i];
    end;
  end;
 for i:=1 to 5 do
  begin
   write(name[i]:20,' средний урожай района. ',srur[i]:6:2);
   if srur[i]=Msrur then
    write('<-максимальный урожай в Рязанской области.');
   writeln;
  end;
 Msrur:=(srur[1]+srur[2]+srur[3]+srur[4]+srur[5])/5;
 writeln('Средний урожай по области: ',Msrur:6:2);
 readln;
end.