1)100101,130,36,35,3A 2)111001,210,25,64,9E 3)101001,232,72,156,8B 4)100011,124,78,541,2D
Var a,i,b:longint;
begin
b:=1;
readln(a);
for i:=2 to a do
b:=b*i;
writeln(b);
<span>end.
вторую извини, не знаю.</span>
Program n1;
var a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do write(a[i],' ');
end.