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.