type ctpoka=array [1..100] of integer;
ta6=array [1..100] of ctpoka;
var
a: ta6
i,j,n,m,maxi,p,max: integer;
f:boolean;
begin
writeln('BBEDUTE 4UCLO CTPOK');
readln(n);
writeln('BBEDUTE 4UCLO CTOL6ll,OB');
readln(m);
for i:= 1 to n do
for j:= 1 to m do
read(a[i,j]);
for i:= 1 to n do
begin
p:=1;
for j:= 1 to m do
begin
p:=p*a[i,j];
if f then
begin
if p>max then
begin max:=p; maxi:=i; end;
end
else
begin max:=p; maxi:=i; end;
end;
end;
for j:= 1 to m do
a[maxi,j]:= p;
writeln('PE3yLbTAT: ');
for i:= 1 to n do
begin
for j:=1 to m do
write(a[i,j]:3,' ');
writeln;
end;
end.

if (True = False) then