program prost_01;
var ch, del, kd, k: integer;

begin
k:=0;
for ch:=1024 to 16384 do
              begin
              kd:=0;

              for del:=1 to ch do
                              if ch mod del=0 then inc(kd);
              
              If kd=2 then k:=k+ch;
              end;

write('k=',k);
end.