Abs[1.02-(E^(0.2*0.1))]

E//N

0.2*1.02

1.02+0.1*0.204

f[x_,y_]:=0.2*y
yt[x_]:=(E^(0.2*x))
y0=1;a=0;b=0.5;h=0.1;n=((b-a)/h);
x0=a;
For[i=0,i≤n,i++,
Print["i= ",i," (Subscript[x, i]) = ",x0, " (Subscript[y, i]) = ", y0, " (Subscript[f, i]) = ", f[x0,y0], " (Subscript[e, i]) = ", Abs[y0-yt[x0]]];
y1=y0+h*f[x0,y0];
y0=y1;x0=x0+h;
]