Files
mathlogic/lab4/cmilan/test/power.mil

15 lines
175 B
Plaintext

BEGIN
N := READ;
P := READ;
S := 1;
WHILE P > 0 DO
S := S * N;
P := P - 1
OD;
WRITE(S)
END