uses crt;
var n,i,dem,chan,le,dem2: integer;
kt:boolean;
begin
clrscr;
repeat
write('nhap so: '); readln(n);
if n mod 2=0 then
chan:=chan+n
else
begin
dem2:=dem2+1;
le:=le+n;
end;
for i:=2 to (n div 2) do
if n mod i =0 then dem :=dem+1;
if dem=0 then kt:=true;
if (n=0) or (n=1) or (dem>0) then kt:=false;
until kt=true;
writeln('tong cac so chan: ',chan);
writeln('trung binh cong cac so le: ',le/dem2:0:0);
readln;
end.
cho mình xin câu trả lời hay nhất
