Помогите решить пожалуйста эту задачу

[Alekseii]

Ввести в ПЭВМ образец программы расчета значений функции Y по формуле Y= (4X - B + C - 1)/2
для следующих исходных данных: Х =BO ; B =13; C=17. Данные вводить в ячейки памяти (начиная с нулевой)
с учетом принципа «младшие разряды – по меньшему адресу»: 0560, 0564, 0568.
Проверить работоспособность программы. После выполнения программы в регистре АХ должно храниться чис*ло 14Н.
1.2. Ввести в ПЭВМ программу, разработанную самостоятельно. Отладить программу и проверить ее работоспособность.
Для этого задать значения переменных небольшими числами, чтобы результат легко можно было подсчитать вручную.
Сравнить результаты выполне*ния программы ПЭВМ и ручного счета. Оформить алгоритм и текст программы.
Я пытался сделать но у меня ни чего не вышло путного.

[Stilet]

const a:array[1..8] of integer=(1, 3, 12, -4, -6,- 2, 1, -8);
var i:integer;
begin
 for i:=1 to 8 do if a[i]<0 then break; write(4);
 readln;
end.

Годится?

[Alekseii]

Большое спасибо

[Stilet]

Пожалуйста )