Нарисовать грузовой автомобиль и военный корабль - Pascal

Формулировка задачи:

Я ничего в паскале не знаю - а надо 2 картинки сделать (ХЕЛПМИ) Нужно нарисовать грузовой автомобиль и военный корабль. - пожалуйста помогите! С меня пиво! :-)

Решение задачи: «Нарисовать грузовой автомобиль и военный корабль»

Листинг программы

uses graphABC;
begin
setwindowsize(500,350);
clearwindow(clskyblue);
setbrushcolor(cldkgray);
setpencolor(cldkgray);
rectangle(0,300,500,350);
setbrushcolor(clwhite);
setpencolor(clwhite);
rectangle(40,200,140,280);
setbrushcolor(clred);
setpencolor(clred);
rectangle(150,150,450,280);
setbrushcolor(clskyblue);
setpencolor(clskyblue);
rectangle(44,210,100,240);
setbrushcolor(clblack);
setpencolor(clblack);
circle(100,283,23);
circle(190,283,23);
circle(240,283,23);
circle(360,283,23);
circle(410,283,23);
setbrushcolor(clwhite);
setpencolor(clwhite);
circle(100,283,13);
circle(190,283,13);
circle(240,283,13);
circle(360,283,13);
circle(410,283,13);
setbrushcolor(clblack);
setpencolor(clblack);
circle(100,283,7);
circle(190,283,7);
circle(240,283,7);
circle(360,283,7);
circle(410,283,7);
end.

Объяснение кода листинга программы

Импортируется библиотека graphABC.
Устанавливается размер окна приложения.
Очищается окно приложения.
Устанавливается цвет кисти и пера на серый и белый соответственно.
Рисуется прямоугольник (грузовой автомобиль) с координатами (0,300), (500,350).
Устанавливается цвет кисти и пера на белый.
Рисуется прямоугольник (военный корабль) с координатами (40,200), (140,280).
Устанавливается цвет кисти и пера на серый.
Рисуются круги (шарики) с координатами (100,283), (190,283), (240,283), (360,283), (410,283).
Устанавливается цвет кисти и пера на белый.
Рисуются круги (шарики) с координатами (100,283), (190,283), (240,283), (360,283), (410,283).
Устанавливается цвет кисти и пера на черный.
Рисуются круги (шарики) с координатами (100,283), (190,283), (240,283), (360,283), (410,283).
Завершается работа с графическим интерфейсом.