Числа Фибоначчи.Внести изменение в цикл - Pascal ABC

Формулировка задачи:

Помогите пожалуйста. Нужно что бы внутри цикла ДЕСЯТОЕ число было удвоенное. То есть вместо 55 было 110,а следующее(11 число) было 89 и так далее. Вот сама программа:

var i,ch,ch1,ch2,n:integer;
begin
Write('Введите число:');
Readln(n);
ch:=0;
ch1:=1;
for i:=1 to n do
begin
ch2:=ch1;
ch1:=ch;
ch:=ch1+ch2;
Write(ch:5);
end;
end.

Решение задачи: «Числа Фибоначчи.Внести изменение в цикл»

Листинг программы

  if i mod 10=0 then
    write(ch*2:5)
  else
    write(ch:5);

Объяснение кода листинга программы

Переменная i принимает значения от 0 до 20.
Если i делится на 10 без остатка, то выводится строка, состоящая из чисел от 0 до 5, умноженных на 2.
В противном случае, выводится просто число от 0 до 5.