Kode Rumus Luas Permukaan Balok pada Pascal

Berikut kode rumus Luas Permukaan Balok pada bahasa pemrograman Pascal:
Gampang kok tinggal Ketik "KODE DI BAWAH INI":


Kode Berikut untuk Copy Paste :

uses crt;
var p,l1,t:Real;
begin
clrscr;
write('Masukkan panjang pada Balok(cm):'); readln(p);
write('Masukkan lebar pada Balok (cm):'); readln(l1);
write('Masukkan tinggi pada Balok (cm):'); readln(t);
L:=2*p*l1+2*p*t+2*l1*t;
writeln;
writeln(Luas Permukaan Balok=',V:10:2,'cm2');
readln;
end.

Trus jalanin dech --> Run pada Turbo Pascal yang kalian punya.
Jika ada kesalahan tolong dikonfirmasi di web blog ini,.. hehehehe :D
Semoga bermanfaat