uses crt;
var
tablo:array[1..6,1..6] of integer;
 
i,j,min:integer;
 
procedure mincarp;
begin
min:=tablo[1,1];
for i:=1 to 6 do
for j:=1 to 6 do
  if min > tablo[i,j] then min:=tablo[i,j];
 
for i:=1 to 6 do
 for j:=1 to 6 do
  tablo[i,j]:=tablo[i,j]*min;
end;
 
 
begin
clrscr;
writeln('Tablo degerlerini giriniz...');
for i:=1 to 6 do
 for j:=1 to 6 do
  read(tablo[i,j]);
 
readln;
mincarp;
writeln('');
 
for i:=1 to 6 do
begin
 for j:=1 to 6 do
 write(tablo[i,j]);
writeln('');
end;
 
readln;
end.