Нарисуйте точечный рисунок в pascal abc

Question

Нарисуйте точечный
рисунок в pascal abc

Comments

Зарание спасибо

---

в этих 2 сайтах посмотри, я точно не понял чо такое паст.......

Answer 1

uses
  GraphABC;

begin
  var i, j: integer;
  for i := 50 to 150 do
    for j := 50 to 150 do
      putpixel(i, j, clBlack);
  Window.save('1.bmp');
end.