var temptong,tong,so: longint;
begin
so:=1;
write('Nhap so tien dong gop cua ban thu ',so,': ');
readln(tong);
while (tong<200000) do
begin
so:=so+1;
write('Nhap tiep so tien dong gop cua ban thu ',so,': ');
readln(temptong);
tong:=tong+temptong;
end;
writeln('Da du 200000 dong.');
writeln('Tong so tien thu thap duoc la: ',tong);
readln;
end.