tugas TIK membuat TPW

uses wincrt;
var
A1,A2,A3,A4,A5,Hsl:real;
pilih:char;ket:string[5];
Begin

write('masukkan pilihan nama buah anda:');Readln(pilih);
if pilih='A'then ket:='salak';
if pilih='B'then ket:='nanas';
if pilih='C'then ket:='jambu';
if pilih='D'then ket:='melon';
if pilih='E'then ket:='jeruk';
write(ket);

end.