- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
Program Aliski;
uses Graphabc;
begin
SetWindowWidth(800);
SetWindowHeight(600);
SetPenWidth(3);
SetFontSize(18);
SetFontColor(clGreen);
rectangle(85,80,500,140);
TextOut(100,100,'Алексей у тебя реально 10см?');
Circle(350,500, 40);
Circle(430,500, 40);
FloodFill(350,500,clSkyBlue);
FloodFill(430,500,clPurple);
Line(350,460,350,250);
Line(430,460,430,250);
Line(340,250,440,250);
Line(390,220,390,200);
Arc(390,250,50,0,180);
end.