Coding Mencari Luas dan Volume Balok

Assalamualaikum sobar MathLovers :) , kali ini saya share coding mencari luas dan volume balok. Ini merupakan salah satu tugas saya pada mata kuliah Program Komputer. Semoga bermanfaat..

Program luas_volum_balok ;
uses wincrt;
var
p,l,t: real ;
Luas,volume : real ;
coba : char ;

begin
repeat
clrscr;
writeln ('inilah program mencari luas dan volume balok');
writeln('') ;
write ('silahkan masukkan panjang = ');readln(p) ;
write ('silahkan masukkan lebar = ') ;readln(l) ;
write ('silahkan masukkan tinggi = ') ; readln(t) ;
volume:=p*l*t ;
Luas:=2*((p*l)+(p*t)+(l*t)) ;
writeln ('jadi luas balok = ',luas:0:2);
writeln ('jadi volume balok = ',volume:0:2);
writeln ('coba lagi? Y or N ');readln(coba) ;

until (coba='N') or (coba='n');
end.