Дано n произвольный чисел,найти их сумму (паскаль ABC). Решить пожалуйста в 3-х циклах,(for;repeat and until;while)

1) var n,a,s,i:integer; begin write('n = '); readln(n); writeln('Введите ',n,' чисел:'); s:=0; for i:=1 to n do  begin  read(a);  s:=s+a;  end; writeln('s = ',s); end. 2)var n,a,s,i:integer; begin write('n = '); readln(n); writeln('Введите ',n,' чисел:'); s:=0; i:=0; repeat  i:=i+1;  read(a);  s:=s+a; until i=n; writeln('s = ',s); end. 3) var n,a,s,i:integer; begin write('n = '); readln(n); writeln('Введите ',n,' чисел:'); s:=0; i:=0; while i