%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
