, сама уже не вывожу. Нужно дописать программу в Pascal модуль Graph ABC так, что-то было похоже на рисунок. (Начло):
uses graphABC;
var x,y:integer;
begin
SetBrushColor(clAzure);
Rectangle(0,291,640,0);
SetBrushColor(clYellowGreen);
Rectangle(0,435,640,291);
SetBrushColor(clBisque);
Ellipse(200,210,490,360);
Circle(198,225,84);
Circle(480,249,24);
SetBrushColor(clSnow);
Circle(147,220,24);
Circle(220,221,24);
SetBrushColor(clBlack);
Circle(215,223,18);
Circle(143,223,18);
SetBrushColor(clSnow);
Circle(223,221,6);
Circle(151,223,6);

dashnv76    3   12.04.2021 01:03    7