Mô phỏng thuật toán của ctr này với Program Chuong_trinh1; Uses Crt; Var S,n:integer; Begin S:=0;n:=0; While S>50 do begin n:=n+1;S:=S+n end; Writeln('So n nho nhat de tong > 50 la',n); Writeln('Tong dau tien > 50 la',S); end.