Angka Berurutan

Cara menampilkan Angka berurutan menggunakan Perulangan
Nih Scripnya :

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;







Var
i,A : integer;
begin
  I:=1;
  while I<= 10 do
  begin
  A:=I;
  writeln(A);
  I:=I+1;
  end;
  readln;
end.

Tampilan Script pada Error Console :

HAsil Script Running: