Scrip Pascal Mencari Volume

Pagi sobat netter,
Pagi ini gue mau share scrip pascal nieh..
Sebenernya ni scrip standar sieh, tapi gak papalah buat para pemula biar lebih memahami.. wuehehehee

langsung aja sob, cekidoot
Ini screen shootnya...

 

 Gampang kan, secara gitu lho.. Scrip standar soalee, hehehe..

Ini Screenshoot setelah sciptnya dijalanin..

Dan ini Scripnya :

program latihan;

uses wincrt;


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


begin
write('masukan panjang :');readln(panjang);
write('masukan lebar :');readln(lebar);
write('masukan tinggi :');readln(tinggi);

volume:=(panjang*lebar*tinggi);

write('Volumenya adalah :',luas:0:2);

end.

SEKIAN, dan TERIMA KASIH