program zachod;
uses
  graph,crt;
var
  karta, tryb : smallint;
  PathToDriver : string = 'C:\FPC\2.2.4\units\i386-win32';
  a:integer;
procedure wlaczgrafike();
var
  karta, tryb : smallint;
  PathToDriver : string = 'C:\FPC\2.2.4\units\i386-win32';
begin
  detectgraph(karta,tryb);
  InitGraph(karta,tryb,PathToDriver);
end;
procedure wylaczgrafike();
  begin
      CloseGraph;
  end;
procedure niebo();
  begin
      setfillstyle(1,blue);
      bar(0,0,1500,450);
  end;
procedure trawa();
  begin
    setfillstyle(1,green);
    bar(0,450,1500,900);
  end;
procedure slonce();
  begin
    for a:=0 to 450 do
    begin
      delay(100);
      niebo();
       setfillstyle(1,yellow);
      fillellipse(700,50+a,50,50);
      trawa();
          if a=450 then
          begin
          setfillstyle(1,black);
          bar(0,0,2024,450);
          end;
    end;
  end;
begin
  wlaczgrafike();
  niebo();
  trawa();
  slonce();
  readln;
  wylaczgrafike();
end.