program Noname5;
    type
 
        irasas = record
        vardas : string;
        kiekis : integer;
        suma : real;
        all : real;
        end;
 
        mas = array[1..100] of irasas;
 
        var
        duom, rez : text;
        i, j, kiek : integer;
        M : mas;
        c : real;
 
begin
  // ----------------------------------nuskaitymas------ //
  Assign(duom, 'duom.txt');
  Reset(duom);
  Read(duom, kiek);
  for i:= 1 to kiek do
  begin
  ReadLn(duom, M[i].vardas, M[i].kiekis, M[i].suma);
  end;
  Close(duom);
  // --------------------------------------------------- //
 
  for i:= 1 to kiek do
  begin
  M[i].all:= M[i].kiekis * M[i].suma;
  end;
 
  // -------------------------------------------------- //
 
    for i := 1 to kiek do
          for j := 1 to kiek-i do
             if M[j] > M[j+1] then
                begin
                   c := M[j+1].all;
                   M[j+1].all := M[j].all;
                    M[j].all := c;
                    end;
  // ------------------------------------------------- //
  Assign(rez, 'rez.txt');
  Reset(rez);
  for i:= 1 to kiek do
  begin
  WriteLn(rez,M[i].vardas, ' ',M[i].all);
  end;
  WriteLn(rez,'Didziausias klientas: ', M[1].vardas);
  Write(rez,'Maziausias klientas: ', M[kiek].vardas);
  Close(rez);
 
 
  Readln;
 
end.