program asih;
uses syurga;
var
begin
writeln (' PROGRAM KEABADIAN');
writeln;
write ('Nama Anda ?');
readln (nm)
if ( Kebaikan=true) and ( pembhong = false ) then
writeln ('Hidup akan Bahag ia')
else
writeln ('Hidup akan Sengsara');
readln;
end.
.......sy pendiam, v suka bikin survise tman