Помогите решить срочно пожалуйста Задача в pascal Цикл с условием Первая задача: S=1+2+3+4+.....+ вторая задача: С клавиатуры вводятся целые числа 0 на конце,средние значение положительных чисел.

Задание 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 i>0 then begin
              s:=s+i;
              inc(k);
              end;
           until i=0;
           writeln(s/k);
end.