ช่วยเติมให้สมบูรณ์หน่อยครับ

program while_test
uses crt;
var
     n, sum :integer;
begin
     clrscr();
     n := 0;
     ...........;
     while n >=0 do //Exit while loop when N is negative
begin
         write (' please input N: ');
         read(in);
         ............;
         end;
         ............;
         writeln (' Bye Bye !!! ');
end.

รอเร็ปล่างละกันนะครับ

program while_test;
uses crt;
var n, sum :integer;
begin
     clrscr;
     n := 0;
     writeln('...........');
     while n >=0 do //Exit while loop when N is negative
         begin
         write (' please input N: ');
         read(n);
         writeln('...........');
         end;
         writeln('...........');
         writeln (' Bye Bye !!! ');
end.

หุหุ