Напишите, пожалуйста, программу, вычисляющую 2^n - Pascal ABC

Напишите,пожалуйста, программу, вычисляющую 2^n. Вводится целое неотрицательное число N, которое не превосходит 30.

Листинг программы

var
 n:longint;
begin
 readln(n);
 write(power(2,n));
 readln;
end.

Объяснение кода листинга программы

Объявлена переменная n типа longint.
Введен код для чтения значения переменной n с помощью функции readln.
Вычислена и выведена на экран степень числа 2, равная значению переменной n, с помощью функции power.
Введен код для чтения символа с помощью функции readln (для завершения работы программы).
Программа завершена.