1) определить, является ли заданное целое число а двузначным числом. (разветвляющийся алгоритм) 2) вывести все нечетные однозначные числа. (цикл) 3) найти сумму нечетных элементов одномерного массива. (массив) все в паскале

1)

program z1;

Var a:integer;

Begin read(a);

if (a>9) and (a<100) then writeln(a, '-двузначное число')

else writeln(a, '-не является двузначным числом Введите количество элементов массива:');
readln(n);
write('Введите элементы массива:');
for i:=1 to n do read(a[i]);
i:=1; S:=0;
while i<=n do
begin S:=S+a[i];
i:=i+2;
end;
write('S=',S);
end.