смена ночи днем

program mn;
uses Crt,graph;
var grd,grm,h,i,g,d,x,y,x0,y0,r:integer;
style,col1,col2:byte ;
 procedure Solnce(x,y,c:integer);
  begin
   setcolor(c);
   circle(x,y,30);
   setfillstyle(1,c);
   floodfill(x,y,c);
  end;
 procedure Triangle(x,y,h:integer;style,col1,col2:byte);
  begin
   setcolor(col2);
   moveto(x,y);
   linerel(h div 2,h);
   linerel(-h,0);
   linerel(h div 2,-h);
   setfillstyle(style,col2);
   floodfill(x,y+ (h div 2),col2);
  end;
 procedure fir(a,b,h,stl,color1,color2:word);
  var i:byte;
   begin
    for i:=1 to 3 do
     begin
      triangle(a,b,h,stl,color1,color2);
      b:=b+h;
      h:=h+5
     end;
    rectangle(a- (h div 10),b,a+(h div 10),b+h);
    setfillstyle(stl,color2);
    floodfill(a- (h div 10)+1,b+1,color2);
   end;
 procedure Forest (n:byte);
  var i:byte;
    stl,a,b,color1,color2,h:integer;
   begin
    for i:=1 to n do
     begin
      h:=random(50)+10;
      a:=random(600)+20;
      b:=270 ;
      color1:=10;
      color2:=10;
      stl:=11;
      fir(a,b,h,stl,color1,color2);
     end;
    end;
 Begin
 grd:=detect;
 initgraph(grd,grm,'');
  setcolor(2);
  rectangle(0,getmaxy+200,getmaxx,getmaxy);
  setfillstyle(1,2);
  floodfill(5,getmaxy-5,2);
  setcolor(9);
  rectangle(0,0,getmaxx,getmaxy-200);
  setfillstyle(1,9);
  floodfill(5,5,9);
 Forest(50);
 Triangle(x,y,h,style,col1,col2);
  setcolor(2);
  rectangle(0,getmaxy+200,getmaxx,getmaxy);
  setfillstyle(1,2);
  floodfill(5,getmaxy-5,2);
  setcolor(9);
  rectangle(0,0,getmaxx,getmaxy-200);
  setfillstyle(1,9);
  floodfill(5,5,9);
  x0:=getmaxX div 2 ;
  y0:=getmaxy div 2;
  r:=x0 div 2;
 for i:=-90 to 90 do
  begin
   x:=x0+round(r*sin(i*pi/180));
   y:=y0-round(r*cos(i*pi/180));
  Solnce(x,y,14);
   delay(100);
  Solnce(x,y,9);
  end;
  delay (50);
  setcolor(0);
  setfillstyle(0,0);
  Repeat Until KeyPressed;
 closegraph;
end.