Question

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

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.