Bài pascal khá lằng nhằng!

[trankhanhduong]

Viết chương trình nhập vào các số nguyên từ bàn phím cho đến khi nào gặp số nguyên tố thì kết thúc nhập. Tính tổng các số chẵn và trung bình cọng các số lẻ.

Cho mình lời giải ngắn gọn nhất.

[.......]

var i,n:integer; try:boolean;
begin
repeat
try:=true;
write('Nhap: ');
readln(n);
if (n mod 2=0) or (n mod 3=0) then
try:=false
else
for i:=2 to round(sqrt(n)) do
if n mod i=0 then
begin
try:=false;
break;
end;
until try;
readln
end.