{ 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 }