area Rectangulo

PROGRAM AreaRectangulo;

VAR;
    base, altura:integer;
    area: real;

BEGIN
    Write('Ingresa la base');
    Readln(base);
    Write('Ingresa la altura');
    Readln(altura);

    area=base*altura;

    Writeln('El †rea del rect†ngulo es: ',area:1:2);