Нарисуйте точечный
рисунок в 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.