{ File: eurolire.pas }

{ Scopo: uso di costanti
         uso di istruzioni di ingresso e uscita }

program DaEuroALire;
{ Converte un valore da EURO in LIRE. }

const
  LirePerEuro = 1936.27;
var
  euro : real;

begin
  write('Immetti un Valore in EURO e premi INVIO');
  readln(euro);
  writeln('Valore in LIRE : ', LirePerEuro * euro)
end. { DaEuroALire }