Выполнить в программке Geany.Паскаль.Пожааалуйста)Задачка 1. Вывести на экран

1)
program test;
uses crt;
var
  n,i,c:integer;
begin
  clrscr;
  write('Input n ');readln(n);
  for i:=1 to n do
    begin
    c:=c+5;
      if i mod 2 = 0 then
        write(-1*c,' ')
      else
        write(c,' ');
    end;
  readln;
end.


2)
program test;
uses crt;
var
  sum,i:integer;
begin
  clrscr;
  for i:=1 to 100 do
    if i mod 7 = 0 then
      begin
      write(i,' ');
      sum:=sum+i;
      end;
  writeln;
  writeln(sum);
end.

Program chik;
var n,i,p:integer;
begin
read(N);
p:=0;q:=1;
for i:=1 to n do
begin
p:=p+5;
q:=q*-p;
write(q,' ');
end;
end.
2)
program chik2;
var s,i:integer;
begin
s:=0;
for i:=1 to 1000 do
if(i mod 7=0)then s:=s+i;
write(s);
end.