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