# Correct Errors in following commands and piece of codes

Q1

e1:2*x[1]+3*x[2]+4*x[3]=2$
e2:4*x[1]+3*x[2]+x[3]=10$
e3:x[1]+2*x[2]+4*x[3]=5$
solve([e1,e2,e3],(x[1],x[2],x[3]));

Q2

integate(x^4+2*x+4,x);

Q3

partfrac[(3*x+5)/(x^2+3*x+2),x];

Q4

Limit(t-1,t,2);

Q5

ode1('diff(y,x)=x+2,y,x);

Q6

sol1: ode2(x^2*'diff(y,x) + 3*y*x = sin(x)/x, y, x);
ic2(sol1, x=%pi, y=0);

Q7

plot(x^2+4,[x,-2,2]);

Q8

plot2d(sin(x^2+y^2),[x,-5,5],[y,-5,5])$

Q9

plot2d([[[3,1],[5,3],[3,5],[1,3],[3,1]]]);

Q10

contourplot(sin(x^2+y^2),[x,-5,5],[y,-5,5])$

Q11

g(x):= if (x < -3) then
(x+4);
else if (-3 <= x) and (x < 0) then
2*x;
else
x^2;

Q12

sum:0$ 
For i: 1 step 1 thru 10 do
sum:sum+i;
print(sum)$

Q13

If(1< 2)then
print(I like Mango)
else
print(I like Apple)$

Q14

n=10;
fac=1;
for i:1 step 1 while(n>1) do
block(
fac:fac*n,
n:n-1
);
print(fac)$

Q15

x:1$
y:0$
z:2$
for i:1 step 1 while((x-y)<=0 and (x-y)<5) do
block(
y:z*x,
x:y+z,
z:z+1,
);
print(x,y,z)$