Flowchart Case ... of

Program Case ... Of

Program Garmen_jaket;
uses wincrt;
var Ukuran : Char;
     Banyak : Integer
     Harga, Jumlah : real;
begin
clrscr;
write('Ukuran jaket (S/M/L) : '); readln(Ukuran);
write('Banyak Jaket  : ');readln(Banyak);
case Ukuran Of
'S'  : Harga := 65000;
'M' : Harga := 71000;
'L'  : Harga := 74000;
end;
Jumlah:= Banyak * Harga ;
writeln; writeln;
writeln('Jumlah yang harus dibayar = Rp',Jumlah:8:0);
end.