Нарисовать конус, заполненный наполовину водой - Pascal ABC

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

68. Нарисовать конус, заполненный на половину водой.

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

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

uses graphABC;
var  x,y,r,h:integer;
begin
setwindowsize(500,500);
centerwindow;
x:=250;
y:=375;
line(x,y,x-100,y-200);
line(x,y,x+100,y-200);
ellipse(x-100,y-230,x+100,y-170);
setbrushcolor(clAqua);
ellipse(x-58,y-135,x+58,y-95);
floodfill(x,y-10,clAqua);
end.

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

Импортируется библиотека graphABC.
Объявляются переменные x, y, r, h типа integer.
Устанавливается размер окна приложения.
Центрируется окно приложения.
Задаются начальные значения для переменных x и y.
Выводятся линии, образующие контур конуса.
Выводится эллипс, образующий боковую поверхность конуса.
Устанавливается цвет кисти на Aqua (синий).
Выводится эллипс, образующий верхнюю часть конуса.
Выполняется заливка прямоугольника цветом Aqua.
Окончание программы.