uses wincrt;
var
kata : string;
Ul:Char;
begin
repeat;

clrscr;
writeln('======================================================');
writeln(' = KAMUS HEWAN INDONESIA <>=<> ENGLISH = ');
writeln(' +FOR CHILDREN+ ');
writeln('======================================================');
writeln('silahkan masukan kata: '); readln (kata);
begin
if kata='belatung' then
writeln('maggot')
else
if kata='angsa' then
writeln('goose')
else
if kata='rusa' then
writeln('deer')
else
if kata='banteng' then
writeln('bull')
else
if kata='buaya' then
writeln('crocodile')
else
if kata='landak' then
writeln('porcupine')
else
if kata='kadal' then
writeln('lizard')
else
if kata='cicak' then
writeln('small house lizard')
else
if kata='lintah' then
writeln('leech')
else
if kata='domba' then
writeln('sheep')
else
if kata='cacing' then
writeln('worm')
else
if kata='kelabang' then
writeln('centipede, braid')
else
if kata='kucing' then
writeln('cat')
else
if kata='anjing' then
writeln('dog')
else
if kata='kuda' then
writeln('horse')
else
if kata='kambing' then
writeln('goat')
else
if kata='ayam' then
writeln('chiken')
else
if kata='babi' then
writeln('pig')
else
if kata='sapi' then
writeln('cow')
else
if kata='ikan' then
writeln('fish')
else
if kata='bebek' then
writeln('duck')
else
if kata='tikus' then
writeln('mouse')
else
if kata='burung' then
writeln('bird')
else
if kata='harimau' then
writeln('tiger')
else
if kata='kura-kura' then
writeln('turtle')
else
if kata='semut' then
writeln('ant')
else
if kata='gajah' then
writeln('elephant')
else
if kata='katak' then
writeln('frog')
else
if kata='kupu-kupu' then
writeln('buterfly')
else
if kata='jerapah' then
writeln('giraffe')
else
if kata='kelelawar' then
writeln('bat')
else
if kata='jangkrik' then
writeln('handspring')
else
if kata='anoa' then
writeln('dwarf buffalo')
else
if kata='beruang' then
writeln('bear')
else
if kata='monyet' then
writeln('monkey')
else
if kata='kelelawar' then
writeln('bat')
else
if kata='kecoa' then
writeln('coakroach')
else
if kata='rayap' then
writeln('termit')
else
if kata='kerbau' then
writeln('buffalo')
else
if kata='ular' then
writeln('snake')
else
if kata='kumbang' then
writeln('beetle')
else
if kata='lebah' then
writeln('bee')
else
if kata='laba-laba' then
writeln('spider')
else
if kata='tupai' then
writeln('squirrel')
else
if kata='singa' then
writeln('lion')
else
if kata='nyamuk' then
writeln('mosquito')
else
if kata='lalat' then
writeln('a fly')
else
if kata='naga' then
writeln('dragon')
else
if kata='nyamuk' then
writeln('mosquito')
else
if kata='ulat' then
writeln('catterpillar')
else
if kata='macan-tutul' then
writeln('phanter')
else
if kata='hiu' then
writeln('shark')
else
if kata='gurita' then
writeln('octopus')
else
if kata='ubur-ubur' then
writeln('jellyfish')
else
if kata='undur-undur' then
writeln('ant lion')
else
if kata='nyamuk' then
writeln('mosquito')
else
if kata='kalajengking' then
writeln('scorpion')
else
if kata='serangga' then
writeln('insect')
else
if kata='udang' then
writeln('shrimp')
else
if kata='kutu' then
writeln('louse')
else
if kata='tapir' then
writeln('tapir')
else
if kata='kudanil' then
writeln('hippopotamus')
else
if kata='badak' then
writeln('rhinoceros')
else
if kata='nyamuk' then
writeln('mosquito')
else
writeln('maaf kata yang anda masukan belum terdaftar');
readln;
end;


Writeln('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);
Ul:=Upcase(Ul);
Until (Ul<>'Y');
clrscr;
writeln('TERIMA KASIH TELAH MENCOBA');
writeln('+++THANKS FOR CHILDREN+++');
writeln('-----------------------------------------------');
writeln('_____¶¶¶¶¶___¶¶¶¶_______-GO_TO_HELL ');
writeln('___¶¶¶¶¶¶¶¶___¶¶¶¶¶¶____-if_U_Fell_TO_hard ');
writeln('__¶¶¶¶¶¶¶¶¶¶____¶¶¶¶¶___ ');
writeln('_¶¶¶¶¶¶¶¶¶¶¶¶¶__¶¶¶¶¶¶__-Jangan_Senang ');
writeln('_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶___¶¶¶__-dengan_hari_ini ');
writeln('_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶____¶__-Karna_esok_blum ');
writeln('__¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶___-tentu_seindah_hari_ini');
writeln('____¶¶____¶¶¶¶_____¶____-U_Must_Stay_CooL! ');
writeln('____¶¶____¶¶¶¶_____¶¶___ ');
writeln('____¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶___ ');
writeln('_____¶¶¶¶¶¶___¶¶¶¶¶¶____ ');
writeln('_______¶¶¶¶¶¶¶¶¶¶¶______ ');
writeln('________¶_¶_¶_¶¶_¶_____ ');
writeln('--------------------------------------');

end.