nhập n số . tính tổng các số vừa nhập đến khi gặp số 0 thì dừng

???? ???;
??? ?,?,?: ???????;
?????
    ??????;
    ?:=0; ?:=1;
    ??????
        ?????('???? ?(??? ',?,'): '); ??????(?);
        ?:=?+?;
        ?:=?+1;
    ????? ?=0;
    ???????('???? ??? ?? ??? ????: ',?);
    ??????;

chúc bn hok tốt

program oken;
uses crt;
var n,i,s: longint;
begin
    clrscr;
    s:=0; i:=1;
    repeat
        write('Nhap n(lan ',i,'): '); readln(n);
        s:=s+n;
        i:=i+1;
    until n=0;
    writeln('Tong cac so vua nhap: ',s);
    readln;
end.