Все верно. Но лучше использовать заместо цикла while, цикл for. И не нужна запись str, и.к. Изначально ужевводится в строковом виде
Ну вот тебе внутренняя часть проги:k:=0;
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
Скорее всего так
1а
2д
3в
4б
5б
6б
7-
8а
9 наверное 2. не точные варианты ответов
10б
11 3
12 4
13 2
14 1
15 1
16 4