PROGRAM rectangulo;
USES CRT;
VAR lado1, lado2 : REAL;
VAR area : REAL;
BEGIN
{Este programa calcula el area de un rectangulo}
CLRSCR;
WRITELN ('Escriba los lados del rectangulo');
READ (lado1);
READ (lado2);
WRITELN (' ');
area := lado1 * lado2;
WRITE ('AREA DEL RECTANGULO:');
WRITE (area : 5 : 2);
END.