Простой рисунок в Pascal

Задание 1

Рассмотрим рисование простой картинки - синее небо, зеленая трава, на небе - месяц, на земле - растет дерево:

Для рисование в PascalABC подключаем графический модуль
  uses    GraphABC; 
  begin

Объект Window - это графическое окно, в котором появлется изображение.
Задаем размер графического окна в пикселях:
    Window.SetSize(800, 600);

Задаем цвет заливки - зеленый (для травы):
    Brush.Color := Color.Green;
Рисуем прямоугольник (без границы) в нижней части окна (0, 400) - координата верхнего левого угла прямоугольника (800, 600) - координата правого нижнего угла. Поскольку цвет заливки был выбран, прямоугольник будет зеленым
    FillRectangle(0,400, 800, 600);
 
Задаем цвет заливки синий (для неба):
    Brush.Color := Color.Blue;
Рисуем прямоугольник (без границы) в верхней части окна. (0, 0) - координата верхнего левого угла прямоугольника, (800, 400) - координата правого нижнего угла
Поскольку цвет заливки был выбран, прямоугольник будет зеленым
    FillRectangle(0,0, 800, 400);
 
Задаем цвет заливки желтый (для луны):
    Brush.Color := Color.Gold;
Рисуем диск луны. Круг (без границы) с центром в точке (150, 150), радиусом 100 пикселей
    FillCircle(150, 150, 100);
 
Задаем цвет заливки синий (как для неба):
    Brush.Color := Color.Blue;
Рисуем тень на Луне, чтобы получить месяц
Нарисуем круг (без границы) немного правее, чем лунный дииск с центром в точке (180, 150), радиусом 100 пикселей
    FillCircle(180, 150, 100);

Закончите рисунок самостоятельно:

Нарисуйте ствол дерева в форме прямоугольника и листву в форме эллипса. (команда FillEllipse(x1,y1,x2,y2) рисует эллипс, вписанный в прямоугольник с  верхней левой вершиной в точке (x1, y1) и правой нижней вершиной в точке (x2,y2) )

Нарисуйте  звезду, используя рисование ломаной линии, с помощью команд:

MoveTo(x,y); - задает координату начальной точки ломаной

LineTo(x,y); - задает координату одного узла ломаной.
FloodFill(x,y, c) - выполняет заливку области, содержащей точку (x,y) цветом c

Например, чтобы нарисовать красный треугольник с вершинами в точках (150, 150), (500, 200) и (170, 500), последовательность команд будет следующая:
MoveTo(150, 150);
LineTo(500, 200);
LineTo(170, 500);
LineTo(15:0, 150);
FloodFill(160, 160, clRed);

Загрузите код своей программы на диск Google в свою папку Assignmetn Folder.
Назовите файл Рисунок1.pas

Задание 2

Используя различные геометрические фигуры, нарисуйте человеческое лицо:

Загрузите код своей программы на диск Google в свою папку Assignmetn Folder.
Назовите файл Рисунок2.pas

Домашнее задание

К изображению лица добавьте свои элементы: бороду, усы, волосы, шляпу и т.п. 

Обновите файл Рисунок2.pas