contoh soal volume balok menggunakan turbo pascal 7

1. Program Volume Balok
uses crt;

var
  panjang, lebar, tinggi        : real;
  volume                             : real;

begin
  clrscr;
  writeln ('Program Volume Balok');
  writeln ('Masukkan Data');
  write ('Panjang cm =  '); readln (panjang);
  write ('Lebar   cm =  ');readln (lebar);
  write ('Tinggi  cm =  ');readln (tinggi);

  volume := panjang * lebar * tinggi;
  writeln ('Hasil Volume =  ',  volume:4:2,  '  cm^3');
  readln;
end.