Program Menghitung Balok

Oke, kali ini gua posting Program Menghitung  Balok, tetep belajar sob, jangan copy-paste mulu. hahaa :p

Program Balok;

Uses wincrt; 

Var

P,l,t:byte;

vol:integer;

begin

writeln(‘Program Untuk menghitung Balok’)

write(‘Masukkan Panjang: ‘);readln(p);

write(Masukkan Lebar: ‘);readln(l);

write(Masukkan Tinggi: ‘);readln(t);

writeln;

vol:=p*l*t;

writeln(‘Violume: ‘,vol);

readln;

end.