Bahasa Pascal untuk Menghitung Volume Balok

uses wincrt;
var
     p : real;
     l : lebar;
     t : real;
     V : integer;
begin
     write ('Berapa tingginya?');
     read (t);
     write ('Berapa panjangnya?');
     read (p);
     write ('Berapa lebarinya?');
     read (l);
     V:=p*l*t;
     writeln (Volume balok tersebut adalah :,' V:0:2)
End.