Var y, i, n: integer;
begin
writeln('Введи n');
readln(n);
y := 1;
for i := 1 to n do
y := y *( 2 * i);
writeln(y);
<span>end.</span>
327680 - информационный вес в битах/10240(20*64*8)=32
Var n,i:integer;
begin
n:=0;
for i:=1 to 4 do
n:=n+i;
writeln(n);
readln;
<span>end.</span>
Крокодил Гена.
Гена.
Может играть на балалайке
Зеленого цвета, высокий, смешной работящий