Сделайте, пожалуйста на языке программирования КУМИР!!!40 баллов

1.
алг Девять
нач цел a,i,s
ввод a
вывод a
s:=0;
нц пока alt;gt;0
i:=mod(a,10);
a:=div(a,10);
если i=9
то s:=s+1;
все
кц
если sgt;1
то вывод "Цифр 9 в введенном числе больше одной - ", s
иначе если s=0
то вывод "Цифр 9 в введенном числе нет"
по другому вывод "Цифра 9 в введенном числе одна"
все;
все
кон

2.
алг ЧетНечет
нач цел a,i,s,k
ввод a
вывод a
s:=0;
k:=0;
нц пока alt;gt;0
i:=mod(a,10);
a:=div(a,10);
k:=k+1;
если mod(i,2)=0
то s:=s+1;
все
кц
если s=k
то вывод "Все цифры введенного числа четные "
по другому  вывод "Не все числа введенного числа четные"
все
кон

3.
алг Возрастание
нач цел a,i,s,k,d,z
ввод a
s:=0;
k:=0;
d:=0;
z:=1;
нц пока alt;gt;0
i:=mod(a,10);
a:=div(a,10);
d:=s;
s:=i;
k:=k+1;
если dgt;s
то z:=z+1;
все
кц
если z=k
то вывод "Все числа введенного числа идут в порядке возрастания"
по другому  вывод "Не все числа введенного числа идут в порядке возрастания"
все
кон