var a: array[1..100,1..100] of real;
     b: array[1..100,1..100] of real;
     n,m,max,i,j,nn,nm:integer;
begin
write('Введите размерность матрицы (n,m)'); readln(n, m);
{заполняем матрицу значениями}
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
{находим максимальный по модулю элемент матрицы}
max:=abs(a[1,1]);
nn:=1;
nm:=1;
for i:=1 to m do
for j:=1 to n do
if abs(a[i,j])>max then begin max:=abs(a[i,j]); nn:=j; nm:=i; end;
{формируем новый массив}
for i:=1 to m do begin
for j:=1 to n do begin
b[i,j]:=a[i,j]/a[nn,nm];
write(b[i,j]:4:2); end;
writeln; end;
readln
end.

CONST
 Lng=20; {Word X length}
VAR
 X:Array[1..Lng] of Char;
 N:Array[1..Lng] of Byte;
 i,j:Integer;
BEGIN
 Randomize;
 For i:=1 to Lng do
  begin
   X[i]:=Chr(97+Random(26));
   Write(X[i]);
   N[i]:=0;
  end;
 WriteLn;

 For i:=1 to Lng do
  For j:=1 to Lng do
   If X[i]=X[j] then Inc(N[i]);

 For i:=1 to Lng do
  Write(N[i]:3);
 WriteLn;

 For i:=1 to Lng do
  If N[i]<>3 then Write(X[i]);
 WriteLn;

 ReadLn;
END.