Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоComboВсе проекты

Помогите, очень нужно. Pascal ABC

Елизавета Мороз Ученик (160), закрыт 3 недели назад
Нужно дописать это в Pascal модуль Grah 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);

Лучший ответ
Добрейший) Гений (66711) 1 месяц назад
это барашек или коровка?
Капитонов ДмитрийУченик (108) 4 недели назад
это мопс!
Остальные ответы
Похожие вопросы