program super;
{legge la lista della spesa (un codice per ogni riga)
e l'inventario (codice, descrizione, prezzo e quantita',
uno per riga), e produce il conto (descrizione e prezzo, totale)}

var inv,conto,spesa:text;
    code,tot:integer;
    des:string;
    prezzo:integer;
    quant:integer;

procedure cerca(var t:text; code:integer);
  var n:integer;
  begin
  n:=0;
  while (not EOF(t)) and (n<>code) do
    begin
    readln(t,n);
    if n<>code then begin
                    readln(t);
                    readln(t);
                    readln(t);
                    readln(t)
                    end;
  end;
end;

begin
  assign(inv,'inv.pas');
  reset(inv);

  assign(conto,'conto.pas');
  rewrite(conto);

  assign(spesa,'spesa.pas');
  reset(spesa);

  tot:=0;

  while not EOF(spesa) do
    begin
    readln(spesa,code);
    cerca(inv,code);
    readln(inv,des);
    writeln('Hai comprato ',des);
    write(conto,des:10,': ');
    readln(inv,prezzo);
    writeln(conto,prezzo:10);
    readln(inv,quant); readln(inv);
    tot:=tot+prezzo;
    reset(inv)
    end;

  writeln(conto,'-----------------------');
  writeln(conto,tot:22);

  writeln('Il conto e'' nel file conto.pas.');

  close(inv);
  close(spesa);
  close(conto);
  {close(diff);  }
  end.