THE LOVE WORDS FOR YOU

Program Login;

uses crt;

var

a:string;

b,c,d:string;

begin

repeat

clrcsr;

write ('nama cowok kamu:');

readln(a);

write ('nama cewek kamu:');

readln(b);

if (a<>('fufun')) and (b<>('annisa')) then

writeln ('maaf banget yah, kalian gak cocok');

write ('coba lagi ajah');

readln;

until

(a=('fufun')) and (b=('annisa'));

write ('Fufun sayang Annisa, mmmuuaacchh');

readln;

end.

PASTE THIS NOTE INTO YOUR PASCAL OR C++