Program Pascal - Mencari Luas dan Volume Balok

Program ini dibuat ketika sedang mengerjakan praktikum. :)
Sederhana memang, tapi siapa yang tau jika ada yang membutuhkannya?
Silahkan lihat programnya berikut ini:

uses crt;
var
p, t, l, lp, v : real;
begin
clrscr;
writeln ('==========================================');
writeln ('Menghitung Luas Permukaan dan Volume Balok');
writeln ('==========================================');
write ('Panjang = '); readln (p);
write ('Lebar   = '); readln (l);
write ('Tinggi  = '); readln (t);
writeln ('==========================================');
writeln;
lp := 2*((p*l)+(p*t)+(l*t));
v  := p*l*t;
writeln ('Luas Permukaan Balok = ', lp:2:2);
writeln ('------------------------------------------');
writeln ('Volume Balok         = ', v:5:2);
writeln;
readln;
end.

 Output yang dihasilkan akan seperti Gambar berikut ini:

 

>> Klik Pada Gambar Untuk Memperbesar <<

Semoga bermanfaat! :)