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.
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.








0 komentar:
Posting Komentar