Найти произведение от 1до n( p=1*2**n) на языке паскаль

Var     factorial: longint;     n, i: byte;   begin write('n = '); readln(n);       factorial : = 1;   for i: =2 to n do factorial : = factorial * i;   writeln('n! = ', factorial);   readln; end.

египтяне не писали гласных. египетский язык относится к группам языков, где корень слова состоит из согласных, гласные не вписываются. использовались три вида знаков: словесные (один иероглиф - одно слово), фонетических (сродни сорвеменному алфавиту), детерминативов (иероглиф в конце слова изменял его смысл).

итог - гласные звуки в письме не использовались.

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.