{ File: eurolire.pas } { Scopo: uso di costanti uso di istruzioni di ingresso e uscita } program DaEuroALire; { Converte un valore da EURO in LIRE. } const EuroInLire = 1936.27; var euro, lire : real; begin write('Valore in EURO ? '); readln(euro); lire := EuroInLire * euro; writeln('Valore in LIRE : ', lire) end. { DaEuroALire }