Jawaban:

program Kelipatan7;

// Deklarasi variabel

var

 i, j: integer;

begin

 // Inisialisasi variabel

 i := 5;

 j := 7;

 // Perulangan untuk menghitung kelipatan 7

 while i <= 50 do

 begin

   // Cetak hasil kelipatan 7

   writeln(i);

   // Tambahkan i dengan j (7)

   i := i + j;

 end;

end.

Pada pemrograman di atas, pertama-tama kita mendeklarasikan variabel i dan j dengan tipe integer. Kemudian, kita menginisialisasi nilai awal dari variabel i dengan 5 dan variabel j dengan 7.

Selanjutnya, kita menggunakan perulangan while untuk menghitung kelipatan 7 mulai dari 5. Perulangan ini akan berjalan selama nilai dari variabel i kurang dari atau sama dengan 50. Di dalam perulangan, kita mencetak hasil kelipatan 7 dengan menggunakan perintah writeln(i). Kemudian, kita menambahkan nilai dari variabel i dengan nilai dari variabel j (7) dengan perintah i := i + j;.

Setelah perulangan selesai, program akan mencetak hasil kelipatan 7 mulai dari 5 sampai 50. Hasil yang diperoleh adalah sebagai berikut:

5

12

19

26

33

40

47