StandardIO

Var X STime ETime

X = 1
ClearScreen
Writeln 'Speed Check ...'
Writeln
STime = Timer
repeat
   X = X + 1
   if X mod 10000 = 0 then writeln X
until X = 100000
writeln
ETime = Timer
Writeln (ETime - STime)