нач

  цел n,j,i,n0

  цел таб k[1:20]

  вывод "Введите размер последовательности n>1", нс

  ввод n

 если n>1 то

     вывод "Введите элементы последовательности, целые числа", нс

     i:=0

     нц n раз

         i:=i+1

         ввод k[i]

         если k[i] = 0 то

             n0:=i

         все

      кц

     нц для j от 1 до n0

         вывод k[j]

     кц

  все

кон