Найти сумму двузначных нечетных чисел. вывести сумму. а также выводить на экран сколько вводилось двузначных чисел и сколько из них было нечетных. то есть всего должно быть 3 вывода. !

Это только ответ на 1 вопрос.
var a, i, n, b, sum:integer;
begin
sum:=0;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a>9) and (a mod 2=0) then
sum:=sum+a;
writeln(sum);
end;
end.