Program_Luas_Gabungan

program Gabungan_luas;
uses wincrt;
var luas,r,s,p,l : real;
    pilihan : byte;
    lagi : char;
 begin
   lagi := 'Y';
   while (lagi='Y') or (lagi='y') do
      begin
       clrscr;
       writeln('pilihan');
       writeln('1. Luas lingkaran');
       writeln('2. Luas persegi');
       writeln('3. luas persegi panjang');
       writeln('0. selesai');
       pilihan := 9;
       while (pilihan < 0) or (pilihan > 3) do
       begin
        writeln('pilihan nomor (0-3) ? ');readln(pilihan);
       end;
       clrscr;
       case pilihan of
1:begin
   writeln('panjang jari-jari? ');
   readln(r);
   luas := pi*r*r;
   writeln('luas lingkaran = ',luas:9:2);
 end;
2:begin
   writeln('panjang sisi? ');readln(s);
   luas := s*s;
   writeln('luas persegi= ',luas:9:2);
  end;
3:begin
   writeln('masukkan panjang sisi? ');readln(p);writeln('masukkan lebar sisi? ');readln(l);
   luas := p*l;
   writeln('luas persegi panjang= ',luas:9:2);
  end;
  end;
  writeln('ingin mengulang(Y/T)? ');readln(lagi);
end;
end.