x:read("Gib die Liste mit den x-Werten ein");

y:read("Gib die Liste mit den y-Werten ein");

n:length(x);

sx2:sum(x[i]**2,i,1,n);

sx:sum(x[i],i,1,n);

sxy:sum(x[i]*y[i],i,1,n);

sy:sum(y[i],i,1,n);

g1:a*sx2+b*sx=sxy;

g2:a*sx+b*n=sy;

l:solve([g1,g2],[a,b]);

A:a,l[1][1];

B:b,l[1][2];

kill(x,y);

gerade:y=A*x+B;

print("Die Regressionsgerade =",gerade)$