isi bangun

program isi_bangun;
uses wincrt;
var
pilihan : byte;
p,l,t,isi,r,s : real;
lagi : char;
begin
 lagi := 'Y';
 while (lagi='Y') or (lagi='y') do
 begin
clrscr;
 writeln('pilihan');
 writeln('1. tabung');
 writeln('2. kubus');
 writeln('3. balok');
 writeln('0. selesai');
 pilihan :=9;
 while (pilihan < 0) or (pilihan > 3) do
 begin
  write('pilih nomor (0-3)? ');readln(pilihan);
 end;
 clrscr;
 case pilihan of
1:begin
   writeln('masukkan jari-jari? ');readln(r);
   writeln('masukkan tinggi tabung? ');readln(t);
   isi := pi*r*r*t;
   writeln('isi tabung adalah= ',isi:9:2);
  end;
2:begin
   writeln('masukkan panjang sisi? ');readln(s);
   isi := s*s*s;
   writeln('isi kubus= ',isi:9:2);
  end;
3:begin
   writeln('masukkan panjang balok? ');readln(p);
   writeln('masukkan lebar balok? ');readln(l);
   writeln('masukkan tinggi balok? ');readln(t);
   isi := p*l*t;
   writeln('isi balok= ',isi:9:2);
  end;
  end;
  writeln('ingin mengulang lagi(Y/N)? ');readln(lagi);
end;
end.