viết cấu trúc lặp while do : S =1+2+3+.......+N+.... Cho đến khi S>20 Help với

uses crt;

var i, n, s : integer;

begin

clrscr;

i := 1; s := 0;

while s <= 20 do 

begin

s := s + i; 

i := i + 1;

end;

writeln('tong s = ', s );

readln

end.

program bai_giai;
uses crt;
var n,i,s:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  i:=1;
  if((n+1)*n/2>20 )then 
          begin
           while s<=20 do
                  begin
                   s:=s+i;
                   inc(i);
                  end;
          end else
          while i<=n do
                  begin
                   s:=s+i;
                   inc(i);
                  end;
  write('s=',s);
 readln
end.