For i 1 to 10 do
if a[i]=0 then
inc(k)
=====
for i 10 downto 1 do
write(a[i]:4:2)
1)(линейный) посадить дерево - выкапал яму, положил сажанец, завалил яму, полил
2) перед выходном на улицу одеться по пагоде. - холодно куртку, жарко плавки
3) кушаешь кашу - зачерпнул каши положил в рот так пока не закончится
Абрикос плод, согретый солнцем