Операторы циклов

var
n,c,i: integer;
begin
writeln('N=');
readln(n);
for i:=1 to n do
    begin
    if i mod 2=0
       then
           c:=c+i;
    end;
writeln('Сумма: (1..',n,')=',c);
end.

var
n,sum: integer;
begin
writeln('Введите N');
readln(n);
if n>0
   then
       begin
       while n<>0 do
             begin
             sum:=sum+n;
             n:=n-1;
             end;
       end;
if n<0
   then
       begin
       while n<>0 do
             begin
             sum:=sum+n;
             n:=n+1;
             end;
       end;
if sum=0
   then
       writeln('Введённое число - 0')
   else
       writeln('Ответ: ', sum);
end.

var
n1,n2,sum: integer;
begin
writeln('Введите N1');
readln(n1);
writeln('Введите N2');
readln(n2);
repeat
      begin
      if n1>n2
         then
             begin
             inc(n1);
             if n1<>n2
                then
                    sum:=sum+n2;
             end;
      if n2>n1
         then
             begin
             inc(n1);
             if n1<>n2
                then
                    sum:=sum+n1;
             end;
      end;
until n1=n2;
writeln('Ответ: ',sum);
end.