[КуМир] Ввод и вывод массива в столбик

алг lab1000
нач лит с,с1, цел к,т,л, лит таб х[1:15]
ввод с
слова(с,к,х)
вывод нс
печать(к,х)
кон
 
алг печать(арг цел к, лит таб а[1:15])
нач цел i
нц для i от 1 до к
вывод а[i], нс
кц
кон
 
алг цел количество(лит s1,s2)
нач цел k,i
|s1 в s2
k:=0
нц для i от 1 до длин(s2)-длин(s1)+1 
если s2[i:i+длин(s1)-1]=s1
то k:=k+1
все
кц
знач:=k
кон
 
алг цел позиция(лит s1,s2)
нач цел k,i
|номер первого вхождения s1 в s2
k:=0
i:=1
нц пока k=0 и i<= длин(s2)-длин(s1)+1 
если s2[i:i+длин(s1)-1]=s1
то k:=i
все
i:=i+1
кц
знач:=k
кон
 
алг лог поиск(лит s1,s2)
нач цел i, лог л
|s1 в s2
л:= нет
нц для i от 1 до длин(s2)-длин(s1)+1 
если s2[i:i+длин(s1)-1]=s1
то л:=да
все
кц
знач:=л
кон
алг обращение( арг  рез лит s)
нач цел i, лит s1
s1:= ''
нц для i от 1 до длин(s) 
s1:=s[i]+s1
кц
s:=s1
кон
алг удвоение( арг  рез лит s)
нач цел i, лит s1
s1:= ''
нц для i от 1 до длин(s) 
s1:=s1+s[i]+s[i]
кц
s:=s1
кон
алг замена(арг рез  лит s1, арг лит s2,s3)
нач цел i, лит л
|замена сочетания s2 на s3 в слове s1
нц 
если s1=s2
то s1:=''
i:=0
иначе i:=позиция(s2,s1)
если i<>0
то если i=1
то s1:=s3+s1[длин(s2)+1:длин(s1)]
иначе если i+длин(s2)-1=длин(s1)
то s1:=s1[1:i-1]+s3
иначе s1:=s1[1:i-1]+s3+s1[i+длин(s2):длин(s1)]
все
все
все
все
кц_при i=0 
 
кон
алг удаление(арг рез  лит s1, арг лит s2)
нач цел i, лит л
|удаление сочетания s2 в слове s1
замена(s1,s2,"")
кон
алг слова(арг рез лит s, рез цел n, рез лит таб a[1:15])
нач цел i,л
|разбиение предложения на слова
нц 
замена(s,"  "," ")
кц_при не поиск("  ",s)
вывод s
если s[длин(s)]=" "
то s:=s[1:длин(s)-1]
все
n:=0;
нц 
л:=позиция(" ",s)
n:=n+1
a[n]:=s[1:л-1]
s:=s[л+1:длин(s)]
кц_при не поиск(" ",s)
n:=n+1
a[n]:=s
кон