Program Viktoria20;
Var i,k, quantity, odd : integer;
Begin
quantity:=20;
odd:=0;
For i:=1 to quantity do
begin
k:=random(quantity);
if (k mod 2 <> 0 ) then odd:=odd+1;
if (k<100 and k>9) then if (k mod 3 = 0 ) then WriteLn(k);
end;
WriteLn('');
WriteLn('количество нечетных:', odd);
end.
Подскажите пожалуйста где я ошиблась, и почему приложение выдает ошибку?((( ​

Задание!Определите, чем осложнены предложения!

1)Я изучал осень упорно и долго. 2)Для того, чтобы увидеть по-настоящему, надо убедить себя, что ты видишь это впревые в жизни. 3)Так было и с осенью. 4)Я уверил себя, что эта осень первая и последняя в моей жизни. 5)Это помогло мне пристальнее всмотреться в нее и увидеть многое, чего я не видел раньше, когда осени проходили, не оставляя никакого следа, кроме памяти о слякоти и мокрых московских крышах. 6)Я узнал, что осень смешала все чистые краски, какие существуют на земле, и нанесла их, как на холст, на далекие пространства земли и неба. 7)Я видел листву, не только золотую и пурпурную, но и алую, фиолетовую, коричневую, черную, серую и почти белую. 8)Краски казались особенно мягкими из-зи осенней мглы, неподвижно висевшей в воздухе. 9)А когда шли дожди, мягкость красок сменялась блеском. 10)Небо, покрытое облаками, все же давало достаточно света, чтобы мокрые леса могли загораться вдали, как багряные пожары. 11)В сосновых чащах дрожали от холода березы, осыпанные сусальной позолотой. 12)Эхо от ударов топора, далекое ауканье баб и ветер от крыльев пролетевшейптицы стряхивали эту листву. 13)Вокруг стволов лежали широкие круги от палых листьев. 14)Деревья начинали желтеть снизу: я видел осины, красные внизу и совсем еще зеленые на верхушках.

1. Среди предложений 1-5 укажите предложение с обособленным обстоятельствоом, выраженным деепричастным оборотом. Назовите его номер. 2.Среди предложений 6-10 укажите предложение с обособленным обстоятельством, выраженным сравнительным оборотом. Назовите номер. 3. Среди предложений 11-14 найдите предложение, с обособленным определением, выраженным причастным оборотом. Уажите его номер.

Заглянул-нач.форма,спряжение

Выпросил-начюформа,спряжение

Вылепил-нач.форма,спряжение

Поставил-нач.форма,спряжение 

Сохнуть-нач.форма,спряжение