Jawaban:

//Algoritma

1. Mulai

2. Masukan input batas bawah N1

3. Masukan input batas atas N2

4. Hitung selisih (N2-N1) dan buat variabel S

5. Buat variabel A=N1+S

6. Cetak bilangan N1

7. Jika A < N2 maka cetak A

8. Hitung lagi A=A+S

9. Ulang lagi perintah 6 sampai 8 sampai A > N2

10. Selesai

//Program Pascal

program PolaBilanganSegitiga;

{ Program untuk mencetak bilangan yang termasuk pola bilangan segitiga yang berada di antara 2 bilangan yang di inputkan }

var

  N1,N2,A,S : integer;

begin

    write('Masukan Batas Bawah : ');readln(N1);

    write('Masukan Batas Atas : ');readln(N2);

    write('Bilangan yang termasuk pola bilangan segitiga yang berada di antara ',N1,' dan ',N2,'sebanyak 4 buah bilangan, yaitu ');

S:= (N2-N1);

A:= N1+S;

repeat

  writeln(A);

  A:=A+S;

until A>N2;

end.