program xxx;
uses CRT;
var
sum1, pr2, i, n:integer;
begin
write('n=');
readln(n);
sum1:=0;
pr2:=1;

for i:=1 to n do
begin

if  ((i mod 3)=0) then
sum1:=sum1+i;

if  ((i mod 10)=5) then
pr2:=pr2*i;

end;

writeln('otvet na 1 zadazhu = ', sum1);

if (pr2=1)then
pr2:=0;

writeln('otvet na 2 zadazhu = ', pr2);
end.