Kompetisi Sains Nasional (KSNK) Kota 2020 - Komputer, Nomor 36

Perhatikan potongan berikut ini:

function panas (x : integer) : integer;
var dingin : integer;
begin
  dingin := 0;
  while (x >= 0) do begin
    dingin := dingin + 1;
    if (x mod 3 == 0) then
      x := x - 5
    else if (x mod 5 == 0) then
      x := x - 3
    else x := x - 1
  end;
  panas := dingin
end;

Apakah kembalian dari panas(789)?

a. 262
b. 263
c. 264
d. 265
e. 266