Заголовок: Pascal_painting.PNG

Program Skworechnik;
uses Graph,Crt;
var Gd,Gm,xsun,ysun,rsun,xt,yt,xc,yc,xb1,yb1,xb2,yb2,xd1,yd1,xs,ys,xp,yp,xo,yo,ro,xd2,yd2,xh1,yh1:integer;
str:string;
Begin
clrscr;
Gd:=VGA; Gm:=VGAHi;InitGraph(Gd,Gm,'..\bgi');
If GraphResult=grOk
then begin
xc:=5;
yc:=5;
SetColor(LightBlue);
Rectangle(0,0,640,480);
SetFillStyle(1,9);
FloodFill(xc,yc,9);
xb1:=250;
yb1:=460;
SetColor(Green);
Rectangle(0,450,300,480);
SetFillStyle(1,2);
FloodFill(xb1,yb1,2);
xb2:=500;
yb2:=460;
SetColor(Green);
Rectangle(380,450,640,480);
SetFillStyle(1,2);
FloodFill(xb2,yb2,2);
xd1:=350;
yd1:=450;
SetColor(Brown);
Rectangle(300,400,380,480);
SetFillStyle(1,6);
FloodFill(xd1,yd1,6);
xs:=350;
ys:=165;
SetColor(DarkGray);
Rectangle(280,150,400,400);
SetFillStyle(1,8);
FloodFill(xs,ys,8);
xp:=350;
yp:=267;
SetColor(LightGray);
Rectangle(320,265,360,270);
SetFillStyle(1,7);
FloodFill(xp,yp,7);
xo:=342;
yo:=230;
SetColor(Black);
Circle(340,225,20);
SetFillStyle(1,0);
FloodFill(xo,yo,0);
xd2:=305;
yd2:=5;
SetColor(Brown);
Rectangle(300,0,380,150);
SetFillStyle(1,6);
FloodFill(xd2,yd2,6);
SetColor(DarkGray);
Line(280,150,340,100);
Line(400,150,340,100);
xh1:=350;
yh1:=115;
SetFillStyle(1,8);
FloodFill(xh1,yh1,8);
SetColor(LightGray);
Line(280,400,400,400);
Line(280,400,280,150);
Line(280,150,400,150);
Line(400,150,400,400);
Line(280,150,340,100);
Line(340,100,400,150);
xsun:=99;
ysun:=99;
SetColor(Yellow);
Circle(100,100,50);
SetFillStyle(1,14);
FloodFill(xsun,ysun,14);
xt:=470;
yt:=400;
SetColor(Yellow);
str:='Skvorechnik';
OutTextXY(xt,yt,str);
ReadLn
end;
END.