program percabangan2kondisi;
uses crt;
var
perasaan:string;
begin
clrscr;
write('bagaimana perasaan anda: ');readln(perasaan);
if perasaan = 'marah' then write('anda harus sabar')
else if perasaan = 'semangat' then write('Anda harus produktif');
readln;
end.
cHJvZ3JhbSBwZXJjYWJhbmdhbjJrb25kaXNpOwp1c2VzIGNydDsKIAp2YXIKcGVyYXNhYW46c3RyaW5nOwogCmJlZ2luCmNscnNjcjsKd3JpdGUoJ2JhZ2FpbWFuYSBwZXJhc2FhbiBhbmRhOiAnKTtyZWFkbG4ocGVyYXNhYW4pOwppZiBwZXJhc2FhbiA9ICdtYXJhaCcgdGhlbiB3cml0ZSgnYW5kYSBoYXJ1cyBzYWJhcicpCmVsc2UgaWYgcGVyYXNhYW4gPSAnc2VtYW5nYXQnIHRoZW4gd3JpdGUoJ0FuZGEgaGFydXMgcHJvZHVrdGlmJyk7CnJlYWRsbjsKZW5kLg==