begin
owninteger print1=0,print2=0;               !print indicators
constinteger stop=-5000;                    !loop stop (const)
endofprogram