{ File:  romani1.pas }

{ Scopo: semplice esempio uso di funzioni }

program CifraRomana;
{ Legge da tastiera un carattere fra 'I','V','X','L','C','D','M'
  che rappresenta una "cifra" di un numero romano e stampa il numero intero
  corrispondente.
}

var
  ch : char;


  function Romano2Intero (ch : char) : integer;
  begin
    case ch of
      'I' : Romano2Intero := 1;
      'V' : Romano2Intero := 5;
      'X' : Romano2Intero := 10;
      'L' : Romano2Intero := 50;
      'C' : Romano2Intero := 100;
      'D' : Romano2Intero := 500;
      'M' : Romano2Intero := 1000;
    end { case }
  end; { Romano2Intero }


begin { CifraRomana }
  writeln('Inserisci un carattere scelto fra I,V,X,L,C,D,M');
  readln(ch);
  writeln('Il carattere ',ch,' corrisponde a: ', Romano2Intero(ch))
end. { CifraRomana }