PROGRAM PEMBAYARAN ( Pascal )

Program Pembayaran;
uses wincrt;
var a,x,y,z,b,c:longInt;
begin
write('Masukan Jumlah Sapu Tangan Yang Dibeli:');
readln(a);
writeln('________________________________________');
x:=a mod 12;
y:=(a-x)div 12;
z:=y*28000;
b:=x*3000;
c:=z+b;
writeln('DETIL PEMBAYARAN');
writeln(y,'LUSIN x Rp. 28.000=Rp.',z:10);
writeln(x,'BUAH x Rp. 3.000=Rp.',b:10);
writeln('_________________________________');
writeln('TOTAL PEMBAYARAN  =Rp.',c:10);
writeln;
writeln('....TERIMA KASIH.......');
End.

PROGRAM UNTUK MENGHITUNG JUMLAH PEMBAYARAN

Program Case_1;
uses wincrt;
Var Ukuran : char;
    x      :string;
    Banyak,Harga,jumlah,bayar,kembali:LongInt;
Begin
writeln('PROGRAM UNTUK MENGHITUNG JUMLAH PEMBAYARAN');
X:=('______________________________________________');
writeln(x);
Write('Masukan ukuran baju (S/M/L/XL):');Readln(Ukuran);
write('Banyaknya Jumlah Baju Yang Dibeli :');Readln(Banyak);
CASE upcase(ukuran)OF
'S':Harga:=25000;
'M':Harga:=30000;
'L':Harga:=35000;
ELSE
Harga:=40000;
END;
writeln('Harga Satuan       =Rp.',harga:10);
writeln(x);
Jumlah:=Banyak*Harga;
writeln('jumlah yang harus dibayar=Rp.',Jumlah:10);
write('Uang Pembayaran      =Rp. ');readln(bayar);
kembali:=bayar-jumlah;
writeln('Sisa Uang Kembali  =Rp. ',kembali:10);
writeln(x);
writeln('...................TERIMA KASIH.........');
End.