%BEGIN
%INTEGER I,J;
I=1024
WRITE(I,5)
NEWLINE
J=-1024
WRITE(J,5)
NEWLINE
%ENDOFPROGRAM