Кто может написать программу в Delphi7,0?

Напишу сразу код, немного прокемментировал, но если взялись связать свою жизнь с информатикой, то нужно изучать это все.varF: array[0… 16] of integer; i,i2: integer; schet: integer; beginschet: =0; //заполнение массива согласно данным условиямfor i: =0 to 9 dof[i]: =1; for i: =11 to 13 dof[i]: =1; //создадим два отрицательных массиваf[10]: =-1; F[14]: =-1; //заполним вручную недостающиеf[15]: =1; f[16]: =1; for i: =0 to high (f) do begin //начинаем цикл if f[i]<0 then begin //проверяем первое условик if schet=0 then begin inc (schet); for i2: =0 to i do f[i2]: =0; end else if schet=1 then //второе условие for i2: =i to high (f) do f[i2]: =0; end; end; //end for