Помогите написать программки в паскале, пожалуйста. Желая бы 1 вариант

1
begin
var a:array[1..7] of integer;
var pr:=1;
for var i:=1 to 7 do
begin
a[i]:=readlninteger('Введите элемент массива');
pr*=a[i];
end;
writeln('Творенье:',pr);
end.
2
begin
var a:array[1..20] of integer;
var k:=0;
for var i:=1 to 20 do
begin
a[i]:=2*i+sqr(i)-100;
if a[i]lt;0 then k+=1;
end;
writeln('Кол-во:',k);
end.