program cp2;
uses crt;

var loops,range,hasil:integer;

begin
 clrscr;

 write('masukkan range bilangan yang ingin ditampilkan: ');
 readln(range);
 writeln;

 // deklarasi nilai hasil dan looping
 loops := 0;
 hasil := 1;

 // perulangan menggunakan while
 while (loops < range) do
  begin
   hasil := hasil + loops;
   loops := loops + 1;
   write(' ', hasil);
  end;

 readln;
end.