//PascalABC.Net;
//(c) NaaMan;
var
s, k : integer;
begin
k := 1;
for var i := 1000 to 9999 do begin
s := 0;
for var j := 0 to 3 do begin
s += (i div round(power(10, j)) mod 10)
end;
if (i mod s = 0) then begin
write(i, ' ');
if (k mod 4 = 0) then writeln;
k += 1
end
end
end.
Var
n:integer;
x,p:real;
begin
x:=2;p:=1;
writeln('N?');
readln(n);
repeat
p:=p*Sin(x);
x:=x+2;
until x>n*2;
writeln('p: ',p:4:2);
end.