)) для заданного натурального числа n вычислить значение его факториала n! =1*2**n

var a: array [1..1000] of integer;

fac,i,n: integer;

begin

readln(n);

fac: =1;

for i: =1 to n do begin

a[i]: =i;

end;

for i: =1 to n do begin

fac: =fac*a[i];

end;

writeln(fac);

end.

1 одноногий капитан (1 голова - 1 нога); 1 кок (1 голова - 2 ноги);   7 матросов (7 голов -  14 ног);   6 кошек (6 голов - 24 ноги).

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.