{ Bài 3: Viết chương trình nhập vào bàn phím lần lượt các số nguyên, dấu hiệu chấm dứt là số 0. Tính tổng và trung bình cộng các số vừa nhập.}
program tbc;
uses crt;
var x,s: real;
n: integer;
begin
clrscr;
s:=0; n:=0;
repeat
write('Nhap x: '); readln(x);
n:=n+1;
s:=s+x;
until x=0;
writeln('Tong cac so vua nhap la: ',s/(n-1):0:2);
readln;
end.