program uses crt; 
var i,j,n,m,min,k : integer; 
P : real; 
t : array [1..100,1..100] of integer; 
begin 
clrscr; 
write('vvedite kol-vo stolbcov = '); 
readln(m); 
write('vvedite kol-vo rjadkov = '); 
readln(n); 

for i:=1 to m do 
for j:=1 to n do begin 
write('vvedite t[',i,j,'] znachenie = '); 
readln(t[i,j]); 
end; 
k:=0; 
for i:=1 to m do 
for j:=1 to n do 
if (i<j) and ((i+j)>(n+1)) and (t[i,j]=0) then k:=k+1; 
writeln ('k=',k); 

min:=t[m-1,1]; 
for i:=m-1 to m do 
for j:=1 to n do 
if t[i,j]<min then min:=t[i,j]; 
writeln ('min=',min:3); 
if min<>0 then 
begin P:=k/min; writeln ('P=',P:3); end 
else writeln ('Deistvie nevozmojno'); 

readln; 
end.