Đồ họa trong Pascal #3: Chương trình tạo ra hàng ngàn trái tim

Đây là chương trình khá thú vị tôi đã nghĩ ra khi tìm hiểu về đồ họa trong Pascal.

Lưu ý: chương trình này chỉ áp dụng cho Pascal trên điện thoại.

program manyhearts;
uses crt,graph;
var x,y: Integer;
begin
  Randomize();
  initGraph(detect(),0,'');
  setTextStyle(boldfont,horizdir,9);
  setFillStyle(1,5);
  bar(0,0,getMaxX, getMaxY);
  outTextXY(100,500,'I love you');
  delay(2000);
  repeat
  begin
  x := Random(1500)  - Random(1500);
  y := Random(1500)  - Random(1500);
  outTextXY(x,y,'💖');
  end;
  until keyPressed();
  readln;
  closeGraph();
end.