__________________________________________________________________________
Prva zadaca---------------------------------------------------------------
n = Input["Vnesi promenliva"]
m = 1;
While[m <= n, If[m*2 <= 10 && Mod[m, 2] == 0, Print[m]]; m++]

__________________________________________________________________________
Votra zadaca--------------------------------------------------------------
n = Input["Vnesi go n"]
max1 = 0;
a = {};
For[i = 1, i <= n, i++, broj = Input["Vnesi broj"]; AppendTo[a, broj];
  If[broj > max1, max1 = broj]]
max1
For[j = 1, j <= n, j++, If[Mod[max1, j] == 0, Print[j]]]

_________________________________________________________________________
Treta zadaca-------------------------------------------------------------
n = Input["Vnesi go n"]
br = 1;
While[n > 0, Print[n]; br = br*Mod[n, 10]; n = IntegerPart[n/10];]
br





********************************obtained*tnx*to*Vlade*&*Vlade*(bitolapower)*****************************