Задание: В виде мультфильма представить картину, сделать в паскале графический результат Опции

[flashg]

Задание:

Кто нибудь знает как это сделать, есть ли исходник

В виде мультфильма представить картину медленного захода солнца за линию горизонта с изменением освещения пейзажа.

[flashg]

да но фон та чёрный постоянный а задумывался сменяющейся

Код

uses crt,graph;
const a:array [1..9] of byte=(0,0,1,3,11,3,1,0,0);
var GrDriver,GrMode,i:integer;

procedure fon (i:word);
Begin
    SetBkColor(i);
    SetFillStyle(1,green);
    SetColor(lightgreen);
End;

BEGIN
    GrDriver:=EGA; GrMode:=EGAHi;
    initgraph(GrDriver,GrMode,'c:\pascal\BGI'); {прописать расположение паскаля}
    if GraphResult<>grOK then halt(1);
    for i:=1 to 9 do
        begin
             fon(a[i]);
             delay(65000);
             delay(65000);
             end;
closegraph;
end.
    readln;
    END.