RUMUS MEMBUAT BALOK

program hitung_balok;

uses
crt;
var
p,l,t :single;
volume,lp :double;
begin
clrscr;
writeln('hitung volume balok');
writeln(' ');
write('masukkan nilai panjang :');
readln(p);
write('masukkan nilai lebar :');
readln(l);
write('masukkan nilai tinggi :');
readln(t);
volume:=p*l*t;
writeln('jumlah volume :',volume:3:2);
lp:=(2*p*l)+(2*p*t)+(2*l*t);
writeln('jumlah luas permukaan :',lp:3:2);
read(lp)
end.