{Una massaia ha comprato 3 prodotti al supermercato; emettere lo scontrino fiscale
in cui compaia per ogni riga il nome del prodotto, l'importo in lire e quello in euro;
alla fine stampare il totale in lire e in euro}

{ATT. Nella soluzione ho fatto in modo di utilizzare, per risparmiare memoria,
solo 1 variabile "euro"}

program acquisti;
const lirex1euro = 1936.27;
var nome1: string[15]; {nome del primo prodotto - I }
lire1:longint; {importo in lire del primo prodotto - I }
nome2: string[15]; {nome del secondo prodotto - I }
lire2:longint; {importo in lire del secondo prodotto - I }
nome3: string[15]; {nome del terzo prodotto - I }
lire3:longint; {importo in lire del terzo prodotto - I }
euro:real; {importo in euro corrispondente ai vari prodotti in lire - O}
totalelire: longint; {totale in lire - O}
totaleeuro: real; {totale in euro - O}
begin
    writeln ('dammi nome e prezzo in lire del primo prodotto');
readln (nome1,lire1);
writeln ('dammi nome e prezzo in lire del secondo prodotto');
readln (nome2,lire2);
writeln ('dammi nome e prezzo in lire del terzo prodotto') ;
readln (nome3,lire3);
writeln ('scontrino fiscale');
writeln ('NOME PRODOTTO - LIRE - EURO ');

euro := lire1/lirex1euro;
writeln(nome1, lire1, euro:8:2);
totaleeuro := euro;

euro := lire2/lirex1euro;
writeln(nome2, lire2, euro:8:2);
totaleeuro := totaleeuro + euro;

euro := lire3/lirex1euro;
writeln(nome3, lire3, euro:8:2);
totaleeuro := totaleeuro + euro;

totalelire := lire1 + lire2 + lire3;
writeln (' ',totalelire,totaleeuro:8:2);
readln;
end.