Program angka susunan tangga

uses crt;
var
   i,n:integer;
begin

   clrscr;
   write('n: ');readln(n);
   for i:= 1 to n do
   begin
      writeln(i:i);

   end;
   readln;
end.