begin
   integer
     I;
   real
     X;
   procedure ASS(X, I);
      real
        X;
        integer
        I;
      if I < 0 then
        X ≔ I + 3
      else
        I ≔ 2·0 × X;
   ASS(X, - 1);
   I ≔ 2;
   ASS(X, I);
   ASS(I, I);
   ASS(I, X);
   OUTREAL(99, I);
   OUTREAL(99, X)
end