Program menghitung penjualan karcis pada pascal

Uses crt;
Var
Studio, Jumlah : integer;
Total, Harga : longint;
Jf : string[15];
Begin
clrscr;
Write ('Masukan Nomor Studio :');readln(Studio);
Write ('Masukan Jumlah Karcis :');readln(Jumlah);
case Studio of
1 : Begin
Jf:='Titanic';
Harga := 5000;
End;
2 : Begin
Jf:='The Mumy';
Harga := 4000;
End;
3 : Begin
Jf:='Terminator';
Harga := 6000;
end;
end;
Total := Harga * Jumlah;
Writeln('Judul Film Anda :',Jf);
Writeln('Total Harga Karcis Adalah :',Total);
Readln;
End.