Mainly in the main program jacket an infinite loop, let the main program execute the second time again. (Of course, there is a read function in the main program!) This, you can implement the TP-compiled program implementation program to calculate the DOS window is not closed.
Program AAA (Input, Output);
VAR
i: integer;
// Declaration part
Begin
For i: = 1 to 5 do
Begin
i: = i i;
// official process
END;
End.