Программисты, помогите!!!! нужно написать программу на паскале. дано натуральное число n. Возвести в степень n число 2. С Longint и integer.

var  n, i: longint;  a: int64;begin  readln(n);  a := 2;  for i := 2 to n do    a := a * 2;  writeln(a);end.

program z1;var a,n:longint;c:real;beginwriteln('Введите N=');read(n);a:=2;c:=power (a,n);writeln(c);end.