Ответ(ы) на вопрос:
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.
Не нашли ответ?
Похожие вопросы