const m=5;
n=6;
var i,j,strokamin,strokamax:integer;
min,max:real;
A:Array[1..m,1..n] of real;
f:file of real;
s:string;
begin
writeln('vvedit fail');
readln(s);
assign(f,s);
reset(f)
for i:=1 to m do
for j:=1 to n do
read(f,a[i,j]);
close(f);
min:=a[1,1];
max:=a[1,1];
strokamin:=1;
strokamax:=1;
for i:=1 to m do
for j:=2 to n-1 do
begin
if a[i,j-1]-a[i,j+1]<min then begin min:=a[i,j-1]-a[i,j+1]; strokamin:=i; end;
if a[i,j-1]-a[i,j+1]>max then begin max:=a[i,j-1]-a[i,j+1]; strokamax:=i; end;
end;
writeln('storka min prirashenije : ',strokamin);
writeln('storka max prirashenije : ',strokamax);
readln;
end.