program Tinhtong_DA; uses crt; var n:integer; A:LongInt; Begin ClrScr; A:=0; n:=0; While A<=700 Do Begin n:=n+1; A:=A+n; End; Writeln('So n nho nhat de tong nho nhat lon hon 700 la ',n); Writeln('Gia tri cua tong nho nhat de tong A lon hon 700 la ',A); Readln; End.
