contoh tipe data real

ya... seperti kamu menggunakan microsoft excel

source code :
program bangun_ruang_balok;
uses wincrt;
var
panjang,lebar,tinggi,hasil :real;
begin
write ('panjang:') readln(panjang);
write ('lebar:') readln(lebar);
write ('tingg:') readln (tinggi);
hasil:=panjang*lebar*tinggi;
writeln;
write ('hasil:',hasil:0:2);
end.