{ File: temperat.pas } { Scopo: primo esempio di if-then-else in cascata } program Temperatura; { Legge un valore reale che rappresenta una temperatura e stampa un opportuno messaggio. } var temperat : real; begin write('Temperatura ? '); readln(temperat); if temperat > 30.0 then writeln('Molto caldo') else if temperat > 20.0 then writeln('Abbastanza caldo') else if temperat > 10.0 then writeln('Gradevole') else if temperat > 0 then writeln('Freddo') else writeln('Molto freddo') end. { Temperatura }