Ввести с клавиатуры натуральное число 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.