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