Составьте программу в...

Составьте программу в паскале ,пожалуйста. Turbo Pascal(циклы паскаль оператор FOR) 1)подсчитать произведение первых семнадцати целых положительныхчисел.

 

1)
 
var
mas:array[1..17] of integer;
a:real;
b:integer;
c:integer;
begin
a:=1;
for b:=1 to 17 do
write;
for c:=1 to 17 do
begin
mas:=c;
a:=mas*a;
end;
write (a);
end.
 
2)
 
var
i:integer;

begin
for i:=-17 to 3 do
if i mod 4 = 0 then
writeln (i);
end.