Решебник

Program dz;
uses graphABC;
var r:integer;
begin
SetWindowSize(600,500);
readln(r);
SetPenColor(clGreen);
Circle(300,200,r);
End. Program usegraph6;
uses graphABC;
begin
SetWindowSize(600,500);
SetPenColor(clNavy);
line(0,200,100,300);
line(100,300,500,300);
line(500,300,600,200);
line(600,200,0,200);
line(100,200,200,150);
floodfill(250,250,clNavy);
SetBrushColor(clGray);
rectangle(200,100,350,200);
fillrect(200,100,350,200);
line(350,200,350,50);
SetBrushColor(clRed);
FillRect(350,50,400,70);
SetBrushColor(clGreen);
FillRect(350,70,400,80);
End.