USES WINCRT;
VAR
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,hasil:real;
Pasword:string;
pil:char;
begin
writeln(' Program Counter Pulsa');
writeln;
begin
repeat
begin
writeln('Masukan Pasword : ');
readln(Pasword);
end;
until (Pasword ='inyong bakule');
end;
clrscr;
repeat
writeln('===========================');
writeln('1. Pulsa Simpati');
writeln('2. Pulsa As');
writeln('3. Pulsa Hallo');
writeln('4. Keluar');
writeln;
writeln('Pilihan :');readln(pil);
writeln;
case pil of
'1':begin
clrscr;
writeln('a. Pulsa Simpati 5000');
writeln('b. Pulsa Simpati 10000');
writeln('c. Pulsa Simpati 20000');
writeln('d. Pulsa Simpati 50000');
writeln('e. Pulsa Simpati 100000');
writeln;
writeln('Pilihan :');readln(pil);
writeln;
end;
end;
case pil of
'a':begin
clrscr;
write('Pembayaran : ');readln(a);
writeln('Harga : 6000');
hasil:=a-6000;
if(hasil<0) then writeln('Uang anda kurang ',hasil)
else writeln('Uang kembalian ',hasil:6:2);
end;
'b':begin
clrscr;
write('Pembayaran : ');readln(b);
writeln('Harga : 11000');
hasil:=b-11000;
if(hasil<0) then writeln('Uang anda kurang ',hasil)
else writeln('Uang kembalian ',hasil:6:2);
end;
'c':begin
clrscr;
write('Pembayaran : ');readln(c);
writeln('Harga : 21000');
hasil:=c-21000;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
'd':begin
clrscr;
write('Pembayaran : ');readln(d);
writeln('Harga : 51000');
hasil:=d-51000;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil);
end;
'e':begin
clrscr;
write('Pembayaran : ');readln(e);
writeln('Harga : 96000');
hasil:=e-96000;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
'2':begin
clrscr;
writeln('f. Pulsa As 5000');
writeln('g. Pulsa As 10000');
writeln('h. Pulsa As 20000');
writeln('i. Pulsa As 50000');
writeln('j. Pulsa As 100000');
writeln;
writeln('Pilihan :');readln(pil);
writeln;
end;
end;
case pil of
'f':begin
clrscr;
write('Pembayaran : ');readln(f);
writeln('Harga : 6000');
hasil:=f-6000;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
'g':begin
clrscr;
write('Pembayaran : ');readln(g);
writeln('Harga : 13000');
hasil:=g-13000;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
'h':begin
clrscr;
write('Pembayaran : ');readln(h);
writeln('Harga : 21500');
hasil:=h-21500;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
'i':begin
clrscr;
write('Pembayaran : ');readln(i);
writeln('Harga : 52000');
hasil:=i-52000;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
'j':begin
clrscr;
write('Pembayaran : ');readln(j);
writeln('Harga : 96000');
hasil:=j-96000;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
'3':begin
clrscr;
writeln('k. Pulsa Hallo 5000');
writeln('l. Pulsa Hallo 10000');
writeln('m. Pulsa Hallo 20000');
writeln('n. Pulsa Hallo 50000');
writeln('o. Pulsa Hallo 100000');
writeln;
writeln('Pilihan :');readln(pil);
writeln;
end;
end;
case pil of
'k':begin
clrscr;
write('Pembayaran : ');readln(k);
writeln('Harga : 6000');
hasil:=k-6000;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
'l':begin
clrscr;
write('Pembayaran : ');readln(l);
writeln('Harga : 13000');
hasil:=l-13000;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
'm':begin
clrscr;
write('Pembayaran : ');readln(m);
writeln('Harga : 21500');
hasil:=m-21500;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
'n':begin
clrscr;
write('Pembayaran : ');readln(n);
writeln('Harga : 52000');
hasil:=n-52000;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
'o':begin
clrscr;
write('Pembayaran : ');readln(o);
writeln('Harga : 96000');
hasil:=o-960000;
if(hasil<0) then writeln('Uang anda kurang ',hasil:6:2)
else writeln('Uang kembalian ',hasil:6:2);
end;
end;
until(pil ='4');
clrscr;
writeln(' Teima kasih');
writeln(' Program ini telah selesai');
end.