Программисты, нужно написать программу на паскале. дано натуральное число 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;
begin
writeln('Введите N=');
read(n);
a:=2;
c:=power (a,n);
writeln(c);
end.