viết 1 chương trình viết 1 số bất kì cho đến khi số đó nhỏ hơn 0 thì dừng

program nho_hon0;

uses crt;

var n:integer;

begin

       clrscr;

       repeat

              write(‘Nhap n: ‘);  readln(n);

       until n<0;

       readln;

end.