program test; var X: integer; begin for X:=1 to 10 do writeln(X); writeln('STOP') end.