Выведите число 2^N(в степени N). N не превосходит 30

var n:byte; begin repeat write ('N = ');readln(n); until (n<=30); writeln (exp(n*ln(2)):0:0); readln; end.   

Program outlaw; uses crt; var   n: real; begin   write('Введите число N ');   readln(n);   writeln('*** alphaues is thinking... ***');   if N<=30 then     writeln('2 в степени N равнo ',power(2,n))   else  writeln('N>30, введите другое число!!!') end.