{ File: arearett.pas } { Scopo: uso di istruzioni di ingresso e uscita } program AreaRettangolo; { Legge lunghezza e larghezza di un rettangolo e ne stampa l'area. } var lunghezza, larghezza : real; begin write('Immetti Lunghezza e larghezza del rettangolo e premi INVIO'); readln(lunghezza, larghezza); writeln('Area: ', lunghezza*larghezza) end. { AreaRettangolo }