Deskripsi untuk soal nomor 39 - 40

Perhatikan potongan kode berikut:

var
  n, count : integer;
begin
  readln(n);
  count := 0;
  repeat
    n := (n * n + 5) mod 23;
count := count + 1;
  until n = 0;
end.