const  N= 4 ;
M= 7 ;
 type  TMass= array [ 1 ..N, 1 ..M]  of  real;
 var  mass:tmass;
i,j:integer;
t:real;
count:integer= 0 ;
 begin 
 for  i:= 1   to  N  do 
 for  j:= 1   to  M  do 
 begin 
 //формулы проверь тута, они у тя коряво написаны, я так и не смог их разобрать 
 if  (i+j >  5 )  then  t:= 1 . 473 +sqrt( 0 . 39 *j+i* 2 )  else  t:=Cos( (i-j)*Pi/ 4  + еxp(i+j)); 
 if  t< 0   then 
 begin 
t:= 0 ;
count=count+ 1 ;
 end ;
mass[i,j]:=t;
 end ;
 end ;

 const  N= 4 ;
M= 7 ;
 type  TMass= array [ 1 ..N, 1 ..M]  of  real;
 var  mass,mass_pred:tmass;
t:real;
i,j,k:integer;
count1,count2:integer;
c1,c2:real;
 begin 
readln(x,y);
 for  i:= 1   to  N  do 
 for  j:= 1   to  M  do 
 begin 
t:= 0 ;
 for  k:= 1   to  j  do  t:=t*k;
 if  (j >  3 )  then  t:=x+y/(i+j*sqrt(x))  else  t:=x+x/t+x* 5 /i; 
mass[i,j]:=t;
 end ;
mass_pred:=mass;
c1:= 0 ;
c2:= 0 ;
 for  i:= 1   to  N  do   // если первый индекс отвечает за строку то так: 
 begin 
c1:=c1+mass[i, 1 ];
c2:=c2+mass[i, 2 ];
 end ;
c1:=c1/N;
c2:=c2/N;
 for  i:= 1   to  N  do   // если первый индекс отвечает за строку то так: 
 begin 
 if  mass[i, 1 ]>c1  then 
 begin 
 //тута глюк, если и первый и второй столбец больше среднего что тогда? 
count1:=count1+ 1 ;
t:=mass[i, 1 ];
mass[i, 1 ]:=mass[i,M];
mass[i,M]:=t;
 end ;
 if  mass[i, 2 ]>c2  then 
 begin 
count2:=count2+ 1 ;
t:=mass[i, 2 ];
mass[i, 2 ]:=mass[i,M];
mass[i,M]:=t;
 end ;
 end ;
 //вывести ве данные уж сам смож... 
...
 end ;