begin
   comment 'LIBRARY' 1;
   real
     A,
     X;
   X ≔ 0·8;
   A ≔ (if X ⩾ 0 ∧ X ⩽ 1 then X × X - 3 × X + 4 else
     0);
   OUTREAL(A);
end