Viết chương trình hiện lên màn hình các số nguyên âm lớn hơn hoặc bằng -20 theo thứ tự tăng dần

program nguyen_am;

uses crt;

var i:integer;

begin

      clrscr;

      for i:=-20 to -1 do write(i,’ ‘);

      readln;

end.