Jawaban:

var

 n: integer;

begin

 // Validasi pengisian n

 repeat

   write('Masukkan nilai n: ');

   readln(n);

   // Jika n adalah bilangan ganjil, maka input ulang

   if n mod 2 = 1 then

   begin

     writeln('Maaf, nilai yang Anda masukkan salah. Mohon masukkan bilangan genap.');

     writeln;

   end;

 until n mod 2 = 0;

 // Cetak hasil

 writeln('Nilai yang Anda masukkan adalah ', n);

end.

Penjelasan:

Pada program di atas menggunakan perulangan repeat-untiluntuk memastikan bahwan benar-benar adalah bilangan genap. Pertama, meminta user untuk memasukkan nilai n, lalu memeriksa apakah n adalah bilangan ganjil dengan menggunakan operator modulus (mod). Jika n adalah bilangan ganjil, maka akan menampilkan pesan error dan meminta user untuk memasukkan nilai n lagi, sampai n benar-benar adalah bilangan genap. Setelah itu, akan mencetak nilai n yang telah diinput oleh user.