program deret

program deret_angka;uses wincrt;var i: integer;begini:=1;write(1);write (' ');repeati:=i+3;write (i);write(' ')untili=16;end.

program deret_angka;

uses wincrt;

var i,j : integer;

begin

for i:=1 to 10 do

i:= i+1

begin

for j:=1 to i do

write (j,' ');

writeln;

end;

end.

program deret_angka;

uses wincrt;

var n, i,j : integer;

begin

n:=1;

for i:=1 to 4 do

begin

     for j:=1 to i do

     begin

          write (n,' ');

          n:=n+1;

     end;

     writeln (' ');

end;

end.

program deret_angka;

uses wincrt;

var

   i : integer;

begin

i:=1;

write (1);

repeat

write (' ');

i := i+3;

write (i);

until i = 16;

end.

program deret_angka;

uses wincrt;

var

   i,a : integer;

begin

a:=16;

for i:= 6(jumlah datanya nuii) downto 1 do

begin

write (a,' ');

a :=a-3;

end;

end.