Пример 1. Составить программу, демонстрирующую фазы Луны (изображения Луны загружаются из файлов).
program Luna;
uses GraphABC;
var p, i: integer; imf: string;
begin
SetWindowSize(300,300); { задание размеров окна }
for i:=1 to 28 do
begin
imf:='luna'+ IntToStr(i)+'.gif '; {формирование имени файла}
p:= LoadPicture(imf); { загрузка изображения из файла }
DrawPicture(p,0,0); { вывод изображения }
sleep(500);
end;
end.