unit unitd;
Interface
uses crt;
type massiv=array[1..100,1..100] of real;
     massiv1=array[1..100] of real;
Implementation
procedure matri(var a:massiv);
procedure Matr_Prakt(a:massiv; var koor:massiv1);
procedure Funkcia(koor:massiv1);

procedure matri;
var
i,j:byte;
function new:real;
begin
 new:=((2-sqr(i-3))/i)*(j-5.7);
 end;
begin
clrscr;
for i:=1 to 10 do
 for j:=1 to 10 do
 a[i,j]:=new;
for i:=1 to 10 do begin
 writeln;
 for j:=1 to 10 do
 write(a[i,j]:8:2);
 end;
 readkey;
end;


procedure Matr_Prakt;
type massiv=array[1..100,1..100] of integer;
     massiv1=array[1..500] of integer;
var   q,n,n1,max_stolb:integer;
i,j:byte;
       x:massiv1;



begin
i:=1;
max_stolb:=1;
for j:=2 to N do
if a[i,j]>a[i,j-1] then max_stolb:=j;

for i:=1 to N do
for j:=1 to N do
koor[i]:=koor[i]+a[i,j]*a[j,max_stolb];

write('a(',koor[1]);
for i:=2 to n do
write(',',koor[i]);
write(')');
writeln;
writeln;
readln;
end;


procedure Funkcia;
var U:real;
qwer,a,i,n,chisl,znam:integer;
q1,q2:real;

function F(b:real; var a:real):integer;

begin
a:=a+b;
end;

begin
for i:=1 to n do
if koor[i]<=1 then f(koor[i],q1);
for i:=1 to n do
if koor[i]>1 then f(koor[i],q2);

U:=(1+q1)/(2+q2);
writeln(u);
readln;
writeln;
writeln;
end;

begin
matri;
Matr_Prakt;
Funkcia;
end.