program prost_01; uses crt; var ch, del, kd, k: integer; begin clrscr; 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.