Как можно ускорить или замедлить gif-анимацию? на этот вопрос нужен ответ*

Открой в нем картинку гиф. потом  он ее преобразовывает в кадры.в нижнем левом углу по умолчанию есть окно анимация.в нем же и выбирается время смены кадров ко всем картинкам или к каждой по отдельности. как-то так.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.