uses crt;
var n,m,i,s:longint;
function nt(a:longint):boolean;
var i:longint;
begin
if a<2 then exit(false);
for i:=2 to trunc(sqrt(a))do
if a mod i=0 then exit(false);
exit(true);
end;
begin
clrscr;
write('Nhap n = ');readln(n);
write(' m = ');readln(m);
write('Cac so chan chia het cho 3 tu n den m la: ');
for i:=n to m do
if i mod 3=0 then write(i,', ');writeln;
write('Cac so nguyen to tu n den m la: ');
for i:=n to m do
if nt(i)then
begin
write(i,', ');
inc(s,i);
end;writeln;
write('Tong cac so nguyen to la: ',s);
readln;
end.
