Фёдоров Фёдор
Профи
(731)
11 лет назад
Должен быть, скачайте лучше Turbo Pascal
Program flag;
Uses crt,graph;
Var gd,gm: integer;
Begin
gd:=detect;
Initgraph(gd,gm,'');
Setbkcolor(15);
Setcolor(1);
Rectangle(199,249,401,401);
Setfillstyle(1,1);
Bar(200,250,400,300);
Setfillstyle(1,2);
Bar(200,350,400,400);
Setcolor(red);
Line(200,250,300,325);
Line(300,326,200,400);
Line(200,250,200,400);
Setfillstyle(1,red);
Floodfill(250,350,red);
Readkey;
Closegraph;
End.
Будет выводиться изображение флага