1 hãy viết các câu lệnh để tạo ra tiếng nhạc trong free pascan 2 hãy viết các câu lệnh để tạo ra thiệp chúc 20/11 trong free pascan

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.