QBasic. Ветвление. Дано вещественное число A и целое число N. Вывести A в степени N:AN=A*A...*A(N раз).

10 CLS
20 DEFINT N, I
30 DEFSNG A, A1
40 ? "Введите A"
50 INPUT A
60 ? "Введите N": INPUT N
70 I = 1;
75 A1 = A
80? A1; "^"; I; "="; A
90 A = A * A1
100 I = I + 1
110 IF I <= N THEN GOTO 80
115 REM Чтобы окно не закрылось, делаю ожидани ввода какого-нибудь значения:
120 INPUT C
120 END