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

Question

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

Answer 1

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

Answer 2

var

n:byte;

begin

repeat

write ('N = ');readln(n);

until (n<=30);</p>

writeln (exp(n*ln(2)):0:0);

readln;

end.