Miért írja ki így?

Ez egy pascalos feladat:

Készítsünk programot, amely ki fogja kérdezni a matematikát (két szám összeadását, kivonását és szorzását az <1,10> intervallumból). A két számot és a műveletet a számítógép véletlenszerűen válassza ki. A program akkor fejeződjön be, ha a felhasználó 10 példát kiszámolt helyesen. Rossz válasz esetén kérdezze újra ugyanazt a példát. A program végén írjuk ki az eredményességet százalékokban.

A megoldásom:

program matek;

var a, b, j, e, m, sz, r, o:Integer;

Begin

Randomize;

m:=0;

Repeat

r:=0;

a:=1+random(10);

b:=1+random(10);

j:=1+random(3);

case j of

1:Begin

Repeat

Write(a,'+',b,'=');

ReadLn(e);

if (a+b=e) and (r=0) then

inc(sz)

else r:=1;

inc(o);

until a+b=e;

inc(m);

end;

2:Begin

Repeat

Write(a,'-',b,'=');

ReadLn(e);

if (a-b=e) and (r=0) then

inc(sz)

else r:=1;

inc(o);

until a+b=e;

inc(m);

end;

3:Begin

Repeat

Write(a,'*',b,'=');

ReadLn(e);

if (a+*b=e) and (r=0) then

inc(sz)

else r:=1;

inc(o);

until a+b=e;

inc(m);

end;

end;

until m=10;

WriteLn('Százalékban jó megoldásaid: ',sz/o*100,'%');

ReadLn;

End.

Ezzel csak annyi a problémám, hogy ezt írja ki például a végén:

Százalékban jó megoldásaid: 1.0000000000000000E+0002%

nem értem.

Előre köszönöm válaszaitokat!