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.
Cinta itu kayak pelajaran fisika yang rumit,
awal mengenalnya susah banget, kayak ngehafal rumus-rumus yang monoton.....
tapi perlahan dengan belajar, aku dapat mengerti bahwa semua rumus yang ada itu bukan hanya di hafal atau di lihat saja kayak hukum newton....
Tapi butuh penalaran, pengertian dan kesabaran yang besar untuk mengerti cinta(sama kayak waktu kita ngerjakan penurunan rumus gaya, pa lgi yang da katrol bergeraknya)wkwkwkwkwkwkwkwk
kayak mr. Einsten ja Q???????????
