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.

Ее надо назвать через program [name];

program pr;
uses crt;  // подключение модуля
var i,j,n,m,min,k : integer; 
P : real; 
t : array [1..100,1..100] of integer; // двумерный массив
begin 
clrscr; // очистка экрана для этого собственно и crt
write('vvedite kol-vo stolbcov = '); // вывод строки
readln(m); // считываем ввод в  m
write('vvedite kol-vo rjadkov = '); // вывод строки 
readln(n); // считываем в n ввод

// цикл от 1..M
for i:=1 to m do
// вложенный цикл
// от 1..N 
for j:=1 to n do begin 
write('vvedite t[',i,j,'] znachenie = '); // выводим все что внутри скоб
readln(t[i,j]);  // считываем в двумерный массив 
end; 
k:=0; // K=0
for i:=1 to m do 
for j:=1 to n do 
// проверка I < J и I+J > N+1 и массив t с элементами [i, j] = 0 тогда к K = K+ 1
if (i<j) and ((i+j)>(n+1)) and (t[i,j]=0) then k:=k+1; 
writeln ('k=',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); // вывод min с ограничением 3
if min<>0 then // если min не равен 0

begin P:=k/min; writeln ('P=',P:3); // выводим P с маской 3
end 
else writeln ('Deistvie nevozmojno'); // иначе выводим 

readln; // ждем нажатия
end.