Выведите число 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.