var
s:char;
begin
write('Sudahkah anda berdoa hari ini?sudah(s)/belum(b)/akan(a)');
readln(s);
if(s='s')then
writeln('silahkan beraktifitas')
else if (s='b') then
writeln('silahkan berdoa terlebih dahulu')
else if (s='a') then
writeln('segeralah berdoa')
else
writeln('Pilihan tidak ada');
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
0 komentar:
Posting Komentar