Question

Помогите начертить Ёлочку в ПАСКАЛЕ АбС .

Answer 1

Program z1;
uses GraphABC;
begin
setpencolor(clgreen);
line(30,50,60,20);
line(60,20,90,50);
line(90,50,30,50);

line(30,80,60,50);
line(60,50,90,80);
line(90,80,30,80);

line(30,110,60,80);
line(60,80,90,110);
line(90,110,30,110);

floodfill(60,40,clgreen);
floodfill(60,70,clgreen);
floodfill(60,100,clgreen);
end.