program pr;
var s,a:integer;
begin
s:=1;
a:=5;
while a<=20 do
a:=a+3;
s:=s*a;
end;
writeln(s);
readln;
end.
