uses crt;
var a:array[1..100] of integer;
i,m,k:integer;
function demuoc (n:word) : boolean;
var i: longint;
dem :integer;
begin demuoc:=true;
for i:=2 to n-1 do
if n mod i=0 then demuoc:=false;
end;
begin clrscr;
write('Nhap so m=');read(m); k:=1;
for i:=2 to m-1 do if...