Кто поможет решить задачу (Паскаль) ??

Question

ТЕМА: Циклические алгоритмы. написание программ с использованием циклических конструкций FOR..TO..DO, WHILE..DO, и REPEAT..UNTIL 
 
написать программу, использую любую циклическую структуру:

Дана последовательность N чисел. Составить программу определения произведения отрицательных чисел последовательности.

Александра Решетникова · Accepted Answer

Для for. (mass - заранее заданная последовательность из N чисел) 
 
program abs: 
var i,a,s,m:integer; 
const N; 
begin 
s:=1 
for i:=1 to N do 
begin 
if mass<0 
s:=s*mass; 
end; 
end,

Для while 
 
program abs: 
var i,a,s,m:integer; 
const N; 
begin 
i:=1; 
s:=1; 
while i<n><0 ; 
s:=s*mass; 
i:=i+1; 
end; 
end, 
 
Для repeat 
 
program abs: 
var i,a,s,m:integer; 
const N; 
begin 
s:=1; 
i:=1; 
repeat 
begin 
if mass<0 
s:=s*mass; 
i:=i+1; 
until i