Ввести с клавиатуры натуральное число N. И с помощью цикла вычислить: 2^N, N!

program zz1;

var b, n, i:integer; / / задаем переменные целого типа

begin

write (' введите натуральное число n '); / / вводим с клавиатуры число

read (n);

b:=1; / / задаем начальное значение переменной

for i:=1 to n do / / организуем цикл

begin

b:=b*2; / / n раз умножаем переменную на два

end;

write (' два в степени n = ', b); / / выводим ответ

writeln;

b:=1; / / задаем начальное значение переменной

for i:=1 to n do / / организуем цикл

begin

b:=b*i; / / вычисляем n факториал

end;

write (' n факториал = ', b); / / выводим ответ

end.