1.Câu lệnh Sound dùng để phát tiếng nhạc.
uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 100 do
begin
sound(i);
delay(100);
end;
readln
end.
2.
uses crt;
begin
clrscr;
writeln('Nhan ngay quoc te phu nu 20/10');
writeln('Toi xin chuc phu nu manh khoe va nhieu thanh dat');
readln
end.