uses wincrt;
var
A1,A2,A3,A4,A5,Hsl:real;
pilih:char;ket:string[6];
Begin
write('masukkan pilihan anda:');Readln(pilih);
if pilih='A'then ket:='senin';
if pilih='B'then ket:='selasa';
if pilih='C'then ket:='rabu';
if pilih='D'then ket:='kamis';
if pilih='E'then ket:='jumat';
write(ket);
end.
