const n=10;
var s,u:array[1..n] of integer;
i,imx:integer;
begin
randomize;
writeln('Номера районов');
for i:=1 to n do
if i=1 then write(i:4)
else write(i:5);
writeln;
writeln('Площади засеянные пшеницей, га');
for i:=1 to n do
begin
s[i]:=500+random(500);
write(s[i]:5);
end;
writeln;
writeln('Собранный урожай, цн');
imx:=1;
for i:=1 to n do
begin
u[i]:=5000+random(5000);
write(u[i]:5);
if u[i]/s[i]>u[imx]/s[imx] then imx:=i;
end;
writeln;
write('Наивысшая средняя урожайность в районе ',imx);
end.