Var a,i:integer;
Begin
A:=1;
For i:=30 to 40 do
If i mod 10 mod 2 =1 then
A:=a*(i mod 10);
If i div 10 mod 2 =1 then
A:=a*(i div 10);
End;
End.
