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

1) program z1; Var a:integer; Begin read(a); if (a>9) and (a<100) then writeln(a, '-двузначное число') else writeln(a, '-не является двузначным числом'); end. 2) program z2; Var i:integer; Begin for i:=1 to 9 do if (i mod 2 = 1) then writeln(i, ', '); end. 2 способ: program z2; Var i:integer; Begin i:=1; while i<=9 do begin write(i, ', '); i:=i+2; end; end. 3) program z3; Var i,n:integer; S:real; a: array[1..100] of real; Begin write('Введите количество элементов массива:'); 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.