Question

помогите как это сделать в pascal ABC

Answer 1

var c:integer;

begin

read(c);

write(2*c)

end.

Answer 2

Для 0 < n <= 9 (для n > 9 надо поменять тип данных переменной p)

var n,i,p:integer;

begin

p:=1;

read(n);

for i:=1 to n do p:=p*2*i;

write(p)

end.