Экзамен!!

[VASHUK]

Завтра экзамен по программированию. Можете пожалуйста помоч. Экзамен начинается в 7 по Московскому времени. Для меня в 8 я с Украины. Я закину задание ток узнаю его. В течение 2 будет идти экзамен. Экзамен по Паскалю. Если мой замысел получится и вы мне поможете написать прогу. В долгу не останусь кину денег на маню. Если у кого то есть желание со мной связатся на экзамене по аське вот мой номер 8298595. По возможности отпишитесь те кто сможет помоч что б на что то расчитывать. Зарание благодарю с уважением.

[VASHUK]

Дан вектор. Определить произведение не нулевых элементов вектора, находящихся в диапазоне [-5; 20] и их количество

[Alco]

program exam;
var
vec: array of integer;
i, num, pr, sch: integer;
begin
pr:=1;
sch:=0;
writeln('Введите количество элементов:');
readln(num);
for i:=0 to num do
begin
writeln('Введите %d элемент',i);
readln(vec[i]);
if ( (vec[i]>=-5) and (vec[i]<=20) and (vec[i]<>0) ) then
begin
sch:=sch+1;
pr:=pr*vec[i];
end;
end;
writeln('количество: %d, произведение: %d',sch,pr);
end;

как то так.
зы. не компилировал