viết chương trình troll người khác khi đăng nhập vào sẽ hiện ra mà hình như là bị hack xâm nhập rồi sau đó cho họ biết chỉ là troll thôi ko biết cô mình ra bài tập kiểu gì ko biết @_@

program troll_hack;
uses crt;
var password: word;
var username: string;
begin
clrscr;
textcolor(white);
write ('user name: ');
readln (username);
write ('password: ');
readln (password);
if password <> 0 then
textcolor(red);
writeln ('!!!           !!!   !!!!    !!!!!!!!   !!!   !!! !!! !!!   !!!   !!!!!!!!!   ');
writeln ('!!!   !!!!!   !!!  !!!!!!   !!!   !!!  !!!!  !!! !!! !!!!  !!!  !!!     !!!  ');
writeln ('!!!  !!!!!!!  !!! !!!  !!!  !!!   !!!  !!!!! !!! !!! !!!!! !!! !!!      !!!!  ');
writeln (' !!! !!! !!! !!! !!!    !!! !!! !!!!   !!!!!!!!! !!! !!!!!!!!! !!!            ');
writeln (' !!!!!!   !!!!!! !!!!!!!!!! !!!!!!!!   !!! !!!!! !!! !!! !!!!! !!!     !!!!!!  ');
writeln ('  !!!!     !!!!  !!!    !!! !!! !!!!!  !!!  !!!! !!! !!!  !!!!  !!!     !!!   ');
writeln ('  !!!!     !!!!  !!!    !!! !!    !!!! !!!   !!! !!! !!!   !!!    !!!!!!!!    ');
sound (150);
delay (2000);
readln;
textcolor (lightblue);
writeln ('mat khau cua ban da bi hack');
writeln ('ban se bi mat tai khoan trong 5s nua');
writeln ('press enter 8 time to stop it');
readln;
writeln ('trong 4 giay');
readln;
writeln ('trong 3 giay');
readln;
writeln ('trong 2 giay');
readln;
writeln ('trong 1 giay');
readln;
writeln ('ngan chan that bai (T_T) :(');
delay (500);
readln;
textcolor (green);
writeln ('DUA CHUT THOI DUNG GIAN NHE !!!');
readln;
readln;
readln;
readln;
end.