uses crt;
var n,d: integer;
s: longint;
tb: real;
function kt(n: integer): boolean;
var i,d: integer;
begin
d:=0;
for i:=1 to n do
if n mod i=0 then inc(d);
if d=2 then kt:=true;
if d<>2 then kt:=false;
end;
begin
clrscr;
s:=0;
d:=0;
tb:=0;
repeat
write ('nhap n: ');  readln (n);
if n mod 2=0 then
s:=s+n;
if n mod 2<>0 then
begin
inc(d);
tb:=tb+n;
end;
until kt(n)=true;
tb:=tb/d;
writeln ('tong cac so chan: ',s);
writeln ('trung binh cong cac so le: ',tb:1:2);
readln;
end.

Xin lỗi vì đã để bạn đợi lâu :)

uses crt;
var n, t, s, cnt: longint;

function prime(n: longint):boolean;
var i: longint;
begin
    if n <= 2 then exit(n = 2);
    for i:=2 to trunc(sqrt(n)) do
        if n mod i = 0 then
            exit(false);
    exit(true);
end;

begin
    clrscr;
    repeat
        read(n);
        if n mod 2 = 0 then t:=t + n;
        if n mod 2 <> 0 then begin
            s:=s + n;
            inc(cnt);
        end;
    until prime(n);
    
    writeln('Tong cac so chan: ', t);
    writeln('Trung binh cac so le: ', s/cnt :0:3);
readln;
end.