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

1)var n,a,s,i:integer;beginwrite('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;beginwrite('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;beginwrite('n = ');readln(n);writeln('Введите ',n,' чисел:');s:=0;i:=0;while i<n do begin i:=i+1; read(a); s:=s+a; end;writeln('s = ',s);end.Пример:n = 5Введите 5 чисел:8 2 9 6 4s = 29