zadach166.BAS

{* Задача166 *}

REM basic

'


CLS
INPUT "Введите x"; x
INPUT "Введите n"; n
P=1
For i=1 To n
P=P*x
Next i
PRINT "P="; Р
End