program test;
var a,p:integer;
begin
p:=1;
a:=5;
repeat
if a mod 2 = 0 then p:=p*a;
a:=a+5
until a>30;
writeln (p)
end.
program test;
var a,p:integer;
begin
p:=1;
a:=5;
repeat
if a mod 2 = 0 then p:=p*a;
a:=a+5
until a>30;
writeln (p)
end.