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

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.