sw/src/pascal/AEGYPT.PS

   1 PROGRAM AEGYPT(INPUT,OUTPUT);
   2   VAR   A,B,X,Y,P: INTEGER;
   3 BEGIN
   4     READ(A,B);
   5     X := A;   Y := B;   P := 0;
   6     REPEAT
   7         IF ODD(X) THEN P := P + Y;
   8         X := X DIV 2;
   9         Y := 2*Y
  10     UNTIL X=0;
  11     WRITELN(A, "   *", B, "   =", P)
  12 END.