Program Deret Part II

program pascal;

uses wincrt;

var   a,i:longint;

begin

     for i:=1 to 10 do

     begin

          write (i)

          end;

end.

program pascal;

uses wincrt;

var   a,i:longint;

begin

    i:=1;

     repeat

     write (i);

     i:=i+1

     until i=11;

end.