Program Pascal Berat Belanja Sederhana Menggunakan Case Of

Program berat;
Uses wincrt;
Var
beratt , harga , hargaperkg : integer ;
Kualitas:char;
Nama:string;
UI:char;
Begin
repeat
Clrscr;
Write(‘Masukan Nama Barang : ‘);readln(Nama);
Write(‘Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘Berapa Kg berat yang di beli : ‘ ); readln(beratt);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
writeln(‘================================================================================’);
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*beratt;
writeln(‘================================================================================’);
writeln(‘Nama Barang  : ‘   ,Nama);
Writeln(‘Harga Per Kg : Rp.’,hargaperkg);
Writeln(‘Harga Total  : Rp.’,harga);

Write(‘Apakah Anda Ingin berbelanja lagi? (Y/T) ‘);readln(UI);
until upcase(UI)<>’Y’
End.