Составить программу вычеслить степень числа (а) с натуральным показателем n

Код QBasic/QuickBASIC INPUT "enter a: ", a INPUT "enter n: ", nres=1 WHILE n IF n AND 1 THEN res=res*a a=a*a n=n \ 2 WEND PRINT res Код Pascal var a,b: integer; c: longint; Begin write ('введите число: '); readln (a); write ('введите степень: '); readln (b); c: =round (exp (ln (a)*b); writeln ('a^b=',c); readlnEnd.