File: AEGYPT.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

PROGRAM AEGYPT(INPUT,OUTPUT);
  VAR   A,B,X,Y,P: INTEGER;
BEGIN
    READ(A,B);
    X := A;   Y := B;   P := 0;
    REPEAT
        IF ODD(X) THEN P := P + Y;
        X := X DIV 2;
        Y := 2*Y
    UNTIL X=0;
    WRITELN(A, "   *", B, "   =", P)
END.

---