Costo de un terreno rectangular en lenguaje Pascal

Lenguaje

Pascal
Descripción

Calcule e imprima el costo de un terreno rectangular, teniendo como datos la anchura y longitud en metros, y el costo del metro cuadrado.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

program CostoDeUnTerrenoRectangular;

uses crt;

var anchura_en_m, costo_del_terreno, costo_por_m2, longitud_en_m : real;

begin

    write ('Ingresa el valor de anchura en m: ');

    readln (anchura_en_m);

    write ('Ingresa el valor de costo por m2: ');

    readln (costo_por_m2);

    write ('Ingresa el valor de longitud en m: ');

    readln (longitud_en_m);

    costo_del_terreno := anchura_en_m*longitud_en_m*costo_por_m2;

    writeln ('Valor de costo del terreno: ', costo_del_terreno:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.