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 x<1.0 then printstring("less ")
if x=1.0 then printstring("equal ")
if x>1.0 then printstring("Greater ")
if x<=1.0 then printstring(" less= ")
if x#1.0 then printstring("noteq ")
if x>=1.0 then printstring("Greater= ")
if 1.0<x then printstring("less ")
if 1.0=x then printstring("equal ")
if 1.0>x then printstring("Greater ")
if 1.0<=x then printstring(" less= ")
if 1.0#x then printstring("noteq ")
if mod(1.0)>=x then printstring("Greater=")
newline
repeat
endofprogram