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