Два множества: первое все простые делители некоторого целого числа n и второе все простые делители того же числа. вывести на экран делители которые не являются простыми.(паскаль)

Замечание: в старых версиях паскаля вместо integer нужно использовать byte. var n,i: integer; s1, s2: set of integer; function prost(n: integer): boolean; var j,m: integer; begin m: =0; for j: =2 to trunc(sqrt(n)) do   if n mod j = 0 then inc(m); prost: =m=0; end; begin readln(n); s1: =[1]; s2: =[]; for i: =2 to n do   if n mod i=0 then   begin   s1: =s1+[i];   if prost(i) then s2: =s2+[i];   end; writeln('все делители: '); for i: =1 to n do    if i in s1 then write(i,' '); writeln; writeln('все простые делители: '); for i: =1 to n do    if i in s2 then write(i,' '); writeln; writeln('делители, которые не являются простыми: '); for i: =1 to n do    if i in (s1-s2) then write(i,' '); end. пример: 340 все делители: 1 2 4 5 10 17 20 34 68 85 170 340  все простые делители: 2 5 17  делители, которые не являются простыми: 1 4 10 20 34 68 85 170 340 

1) 1,5*1024*8 = 12288 12288/3072 = 4 символа 2)104 байта 3)1/512 мб = 2 кб = 2048 байт = 16384 бит 16384/2048 = 8 = 2^3