var n,a,z:integer;
begin
write('n= ');
read (n);
z:=1;
for a:=1 to n do
if (a mod 11 =0)
then z:=z*a;
end;
writeln(z);
end.
var n,a,z:integer;
begin
write('n= ');
read (n);
z:=1;
for a:=1 to n do
begin
if (a mod 11 =0)
then z:=z*a;
end;
writeln(z);
end.