Buatlah algoritma dan flowchart untuk menentukan sederetan bilangan bulat kemudian tentukan bilangan terbesar dan terkecil sekaligus! Tolong bantu ya kak

Algoritma menentukan sederetan bilangan bulat terkecil dan terbesar

Deklarasi:
 jumlahbil, bilbesar, bilkecil, input : integer 

Deskripsi:
 write ("Total bilangan yang akan dimasukkan: ")
 read (jumlahbil)

 for i <- 1 to jumlahbil do
   read (input)
   if i = 1 then
      bilbesar <- input
      bilkecil <- input

   if input > bilterbesar then
      bilbesar <- input

   if input < bilterkecil then
      bilkecil <- input
 endfor

write ("Bilangan terbesar: " + bilbesar)
write ("Bilangan terkecil: " + bilkecil)