Program Menghitung Volume Balok,Panjang Balok atau Lebar Balok

uses wincrt;
var
hitungan:Integer;
p,l,t,x,volume:real;

Begin
writeln(' Menghitung Volume Balok,Panjang Balok atau Lebar Balok ');
writeln(' by: Liya Puspita Sari');
writeln('---------------------------------------------------------------------');
Writeln;
Writeln;
Writeln('Volume Balok = 1; Panjang Balok = 2; Lebar Balok = 3');
write('Apa yang anda ingin hitung? ');
Readln (hitungan);
Case hitungan of
1: begin
clrscr;
gotoxy(20,1);writeln('mengitung volume balok');
writeln;
write('panjang: ');readln(p);
write('lebar : ');readln(l);
write('tinggi : ');readln(t);
volume:=p*l*t;
writeln;
write('jadi volume balok: ',volume:3:2);
end;
2:begin
clrscr;
gotoxy(20,1);writeln('mengitung panjang balok');
gotoxy(10,2);writeln('bila diketahui volume balok');
writeln;
write('volume : ');readln(volume);
write('lebar : ');readln(l);
write('tinggi : ');readln(t);

x:=volume/l;
p:=x/t;
writeln;
write('jadi panjang balok: ',p:3:2);
end;
3:begin
clrscr;
gotoxy(20,1);writeln('mengitung lebar balok');
gotoxy(10,2);writeln('bila diketahui volume balok');
writeln;
write('volume : ');readln(volume);
write('panjang : ');readln(p);
write('tinggi : ');readln(t);

x:=volume/p;
l:=x/t;
writeln;
write('jadi lebar balok: ',l:3:2);
end;
end;
end.