Составить программу, которая вычисляет среднюю плотность раствора по результатам измерения плотности

например провели 5 измирений плотности раствора. пусть 1 первое измирение n1, второе-n2,   3-n3, 4- n4,5- n5. тогда програма будет виглядеть так:

program n1;

uses crt;  

var n1,n2,n3,n4,n5,s: real;

begin

              read(n1,n2,n3,n4,n5);

              s: =(n1+n2+n3+n4+n5)/5;

              write('s=',s);

end.

предполагается, что вводимые числа - целые.

1) с цикла repeat until

program n1; uses crt; var s,k,i: integer; sr: real; beginwriteln('vvodite chisla. vvedite 0 dlya okoncania vvoda'); repeatreadln(i); s: =s+i; inc(k); until i=0; sr: =s/(k-1); writeln('srednee arifmeticheskoe = ',sr: 4: 4); readlnend.

2) с цикла while

program n1; uses crt; var s,k,i: integer; sr: real; beginwriteln('vvodite chisla. vvedite 0 dlya okoncania vvoda'); i: =1; while i< > 0 dobeginreadln(i); s: =s+i; inc(k); end; sr: =s/(k-1); writeln('srednee arifmeticheskoe = ',sr: 4: 4); readlnend.

3) с цикла for

program n1; uses crt; var s,j,k,i: integer; sr: real; beginwriteln('vvedite kolichestvo chisel'); readln(k); writeln('vvodite chisla'); for j: =1 to k do begin readln(i); s: =s+i; end; sr: =s/k; writeln('srednee arifmeticheskoe = ',sr: 4: 4); readlnend.

условие элемент массива меньше 15 и не равен нулю потому, что иначе произведение почти всегда будет равно нулю. если оно не нужно - удали фрагмент       'and(a[i,j]< > 0)'

program n1; uses crt; const n=10; var a: array[1..n,1..n] of integer; i,j: integer; p: longint; beginp: =1; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(50); if (a[i,j]< 15)and(a[i,j]< > 0) then p: =p*a[i,j]; write(a[i,j]: 3); end; writeln; end; writeln('proizvedenie =',p); readlnend.