program arithExpr;
declare n1,n2:integer;
        b1,b2,b3:boolean;
begin
   n1:=28; n2:=39;
   b1:=n1>n2;
   b2:=n1+5#n2;
   b3:=b2;
end arithExpr.