%begin
%ownlongrealarray a(1:6)=0.99,1.0,1.01,0.99,1.0,1.01;
%longreal x; %integer i
%for i=1,1,3 %cycle
x=a(i)
%if mod(x)<mod(1.0) %then printstring("less ")
%if mod(x)=mod(1.0) %then printstring("equal ")
%if mod(x)>mod(1.0) %then printstring("Greater ")
%if mod(x)<=mod(1.0) %then printstring(" less= ")
%if mod(x)#mod(1.0) %then printstring("noteq ")
%if mod(x)>=mod(1.0) %then printstring("Greater= ")
%if mod(1.0)<mod(x) %then printstring("less ")
%if mod(1.0)=mod(x) %then printstring("equal ")
%if mod(1.0)>mod(x) %then printstring("Greater ")
%if mod(1.0)<=mod(x) %then printstring(" less= ")
%if mod(1.0)#mod(x) %then printstring("noteq ")
%if mod(mod(1.0))>=mod(x) %then printstring("Greater=")
newline
%repeat
%endofprogram
