program nyatakan cinta

program katakancinta;
uses crt;
var
 x,z:char;

begin
 clrscr;
 writeln('        888888        8888888');
 writeln('      8888222222     8888888888');
 writeln('    8888822222222   8888888888888');
 writeln('  888822222222228888222288888888888');
 writeln(' 888882222222888__I__888222222288888');
 writeln('8888822222222888888888882222222888888');
 writeln(' 88888888888888__LOVE__2222288888888');
 writeln('  888888222222222222222222222228888');
 writeln('   8888222228888__YOU__88822222888');
 writeln('    88888822222222222222228888888');
 writeln('     888888822222222222228888888');
 writeln('      8888882222222222222288888');
 writeln('       88888822222222222888888');
 writeln('        888888882222228888888');
 writeln('         8888882222222888888');
 writeln('          88888222222288888');
 writeln('           888822222228888');
 writeln('            8882222222888');
 writeln('             88222222288');
 writeln('              882222288');
 writeln('               8222228');
 writeln('                82228');
 writeln('                 828');
 writeln('                  8');
 writeln('             I LOVE YOU');
 writeln('dek,selama ini aku sayang sama kamu');
 writeln('kamu mau gak dek jadi pacar aku ?');
 writeln('jawab dengan Y untuk Ya dan N untuk Tidak');
 writeln;
 writeln('=========================================');
 writeln;
 z:=readkey;
 case z of
  'Y':writeln('i love you :">');
  'N':writeln('i hate you')
 else
  writeln('Jawab ya dek dengan tekan Y untuk ya N untuk tidak.');
 end;
 z:=readkey;
 case z of
  'Y':writeln('i love you :">');
  'N':writeln('walau pun ditolak abang tetep suka sama adek  hikz...')
 else
 end;
 readln;
end.

Posted in: