Live As Technology

var
s:char;
begin
write('Apakah anda suka coklat(yes(y)/no(n)/sedikit(s)):');
readln(s);
case s of
'y':writeln('Gigi anda pasti gupis');
'n':writeln('Setidaknya anda harus mencoba');
's':writeln('bagus pertahankan');
else
writeln('pilihan tidak ada');
end;
readln;

end.