Program treugolnik;
uses GraphABC;
begin
setpenwidth(20);
setpencolor(clred);
line(300,100,500,300);
moveTo(500,300);
lineto(100,300);
moveTo(100,300);
lineto(300,100);
floodfill(300,200,clgreen);
end.
Program pryamougolnik;
uses GraphABC;
begin
SetPenColor(clred);
SetPenWidth(20);
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.
uses GraphABC;
begin
Circle(500,200,100);
FloodFill(500,200,clred);
end.
Program oval;
uses GraphABC;
Begin
Ellipse(50,50,200,350);
FloodFill(50+100,50+100,clred);
Ellipse(250,150,550,300);
FloodFill(250+100,150+100,clBlue);
end.
