Помогите, пожалуйста, оч срочно надо сделать задачки на операторы цикла с условием!!!!

[BeaU]

1)Дано натуральное число, в котором все цифры различны. Определить порядковые номера двух его минимальных цифр, считая номера:
-считая от конца числа;
-считая от начала числа.
(Использовать только один оператор цикла)

2)Дано натуральное число. Верно ли, что количество его цифр есть четное число?

3)Дано натуральное число. Верно ли, что произведение его цифр меньше a, а само число делится на b?

4)Дано натуральное число. Определить, являеться ли оно членом последовательности Фибоначчи(последовательности, первой и второй члены последовательности равны 1, каждый следуйщий равен сумме двух предыдущих)?

5)Имеется фрагмент программы в виде оператора цикла с параметром, обеспечивающий вывод на экран "столбиком" всех целых чисел от 100 до 80. Оформить этот фрагмент в виде: оператора цикла с постусловием.

6)Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатикеоценку "5"? Условный оператор не использовать. Известно, что пятерки имеют не все ученики класса.

7)В некотором году (назвем его условно первым) на участке в 100 гектар средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5%, а средняя урожайность на 2%. Определить, в каком году площадь участка станет больше 120 гектар?

[NSvirus]

4)
var
sim,sum,g:integer;
begin
read(sim);
g:=1;sum:=1;
repeat
sum:=sum+g;
g:=sum-g;
if sim=sum then
begin
writeln('Yslovie vbIpoln9ets9');
break;
end
until sum>sim;
end.