uses stat,newdelay;
const nmax=5;
type tomb=array [1..nmax] of integer;
var x,y:tomb; n,m:integer;

begin
n:=5; m:=5;
feltolt(n,x,m,y);
{writeln(x[random(nmax)]); - rutinellenorzesnek}
writeln;
writeln('Statisztikak:');
writeln;
writeln('atlag(n,x): ',atlag(n,x));
writeln('atlag(m,y): ',atlag(m,y));
writeln('szoras(n,x): ',szoras(n,x));
writeln('szoras(m,y): ',szoras(m,y));
writeln('atlagabszelter(n,x): ',atlagabszelter(n,x));
writeln('atlagabszelter(m,y): ',atlagabszelter(m,y));
writeln('kovarancia(n,x,m,y): ',kovarancia(n,x,m,y));
writeln('korrelacio(n,m,x,y): ',korrelacio(n,x,m,y));
writeln;
readln;
end.