Помогите решить срочно пожалуйстаЗадача в pascal Цикл с условиемПервая

недописал задачи. допиши.

в первом номере как задается последнее число?

1)
var
    i, s, n: integer;

begin
    read(n);
    s := 0;
    i := 0;
    repeat
        i := i + 1;
        s := s + i;
    until i gt;= n;
   
    writeln(s);
end.
2)
var
    i, s, k: integer;

begin
    writeln('Введитепоследовательность чисел. Для окончания введите ноль');
    s := 0;
    k := 0;
    repeat
        readln(i);
        if i gt; 0 then begin
            s := s + i;
            k := k + 1;
        end;
    until i = 0;
   
    writeln(s / k);
end.

Задание 1
uses crt;
var s,n,i:integer;
begin
     write('Введите число больше 1: ');
     readln(n);
     s:=0;
     for i:=1 to n do
         s:=s+i;
     writeln(s);
end.

Задание 2
uses crt;
var i,s,k:integer;
begin
     writeln('Вводите числа. 0 - конец последовательности');
     s:=0;
     k:=0;
     repeat
           readln(i);
           if igt;0 then begin
              s:=s+i;
              inc(k);
              end;
           until i=0;
           writeln(s/k);
end.