pascal balok

Program Mengitung_Volume_Balok;

Uses Wincrt;

    Var

    V,p,l,t:integer;

Begin

    Writeln;

    Writeln('------------------------------------');

    Writeln('Program Hitung Volume Balok');

    Writeln('------------------------------------');

    Writeln;

    Write('Masukan Nilai Panjang Balok = ');Readln(p);

    Write('Masukan Nilai Lebar Balok = ');Readln(l);

    Write('Masukan Nilai Tinggi Balok = ');Readln(t);

    V:=p*l*t;

    Writeln;

    Writeln('Maka Volume Dari Balok = ',V);

End.