program menghitung volume Balok menggunakan function

program volume_balok;

uses wincrt;

function vol(var a,b,c:integer):integer;

begin

vol:=a*b*c;

end;

var

P,L,T:integer;

begin

writeln('___________________');

writeln('hitung volume balok');

writeln('___________________');

write('masukan panjang balok=');readln(p);

write('masukan lebar balok  =');readln(l);

write('masukan tinggi balok =');readln(t);

writeln;

writeln('____________________');

writeln('jadi volume balok=',vol(p,l,t));

writeln('____________________');

end.