Free Pascal. Ez a két kis rész mit határoz meg pontosan? (i:10)

program otteloszt;

var n,m,i:integer;

begin

Writeln('Kerem a hatarokat!');

Readln(n);

Readln(m);

if m>n then

begin

for i:=n to m do

if i mod 5=0 then write(i:10)

end

else

for i:=m to n do

if i mod 5=0 then write(i:10);

readln

end.

Adott ez a kis program , és az (i:10) rész mit határoz meg/ad a dologhoz? Nélküle nem indul el a program de nem értem mit is csinál.