[TPW] bantu gan ada kesalahan

[Linuxmania]

mohon bantuan nya ya suhu



bingung neh dimana salah nya






Code:

program tiket;
uses wincrt;
var kotiket,jetiket,jum,total: string;
hatiket :real;
begin
write('Masukan kode Tiket : ');readln(kotiket);
begin
if (kotiket = 'A' )or (kotiket = 'a') then
jetiket:='pesawat';
hatiket:=1000

else
if (kotiket = 'B' )or (kotiket = 'b') then
jetiket:='pesawat'
hatiket:=5000

writeln('Jenis Tiket =',jetiket,');
writeln('Harga Tiket =',hatiket,');
writeln('Banyak nya =');readln(jum);
total:= jum*hatiket

writeln('total =',total,);
end

trima kasih sebelum nya