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

Например провели 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.