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.