projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
c7ddcb85d61d4ed5c25aabffad83066f899e0514
[pdp8.git]
/
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.