Sử dụng cấu trúc lặp để viết chương trình tính tổng của 1 dãy số thực nhập từ bàn phím. Điều kiện kết thúc là khi nhập vào số 0

uses crt;

var s,n:real;

begin

s:=0;

repeat

begin

clrscr;

write(‘nhap so: ‘);readln(n);

s:=s+n;

writeln(‘tong la: ‘,s:1:2);

readln;

end;

until n=0;

readln;

end.