program provider_2;
uses crt;
var
menu:char;
menu1:char;
menu2:char;
menu3:char;
menu3a:char;
kode:string;
begin
clrscr;
writeln('Kuota++ 2GB, masa aktif panjang cuma Rp 35rb');
writeln('1.Mau');
writeln('2.Info Kartu' );
writeln('3.Internet');
writeln('4.Paketan++');
writeln('5.Isi Pulsa Fisik');readln(menu);
case menu of
'1':begin
writeln('Anda akan membeli Kuota++ Regular 2GB (Rp35rb)');
writeln('1.Ya');
writeln('2.Tidak');readln(menu1);
case menu1 of
'1':write('Selamat Paket Kuota++ Regular 2GB telah diaktifkan');
'2':write('Connection Problem or Invalid MMI Code');
end;
readln;
clrscr;
end;
'2':begin
writeln('1.Cek Nomor dan Cek Pulsa');
writeln('2.Cek Kuota');readln(menu2);
case menu2 of
'1':begin
writeln('Account Detail');
writeln('Nomor Tri: 6289669596601');
writeln('-Pulsa Utama : Rp 56,-');
writeln('-Pulsa Utama : Rp 99.000,-');
writeln('Berlaku s/d 18-OCT-16');
readln;
end;
'2':begin
writeln('Kuota Detail');
writeln('-Kuota Utama : 5,563 GB');
writeln('-Kuota Bonus : 0 GB');
writeln('-Kuota Malam : 11,342 GB (12 Malam- 6 Pagi)');
readln;
end;



'3':begin
writeln('Internet Tri sesuai mau kamu');
writeln('1.Harian');
writeln('2.Mingguan');
writeln('3.Bulanan');readln(menu3);
case menu3 of
'1':begin
writeln('Harian 500 MB (Rp10rb)');
writeln('1.Beli');
writeln('2.Tidak');readln(menu3a);
case menu3a of
'1':writeln('Selamat Paket Harian 500 MB (Rp10rb) telah berhasil diaktifkan');
'2':writeln('Connection Problem or Invalid MMI Code');
end;
end;
end;
end;
end;
end;
end;
end.