Program Tong_Repeat; uses crt; var i: byte; so, tong: real; begin write('NHAP CAC SO - NHAP 0 DE NGUNG '); readln; repeat clrscr; write('Nhap so thu ',i,': '); readln(so); tong:=tong+so; i:=i+1; until so=0; write('Tong la: ',tong:6:1); readln end.
CHÚC BN HC TỐT # NGUYỄN THANH BẢO KHA @ I LOVE YOU
