Решить 3 задачи в PascalABC.NET

Дано целое положительное число N. Вывести первые N чисел арифметический прогрессии 1, 3, 5, 7, …, используя цикл while или repeat.

Дано N положительных целых чисел. Сколько среди них двузначных?

Дано N целых чисел. Вывести только числа, которые делятся на 3 (в том же порядке).
Экзамен

#include <iostream>

#include <math.h>

using namespace std;

int main(void){

   int countHouse, intakeHouse, powerE;

   double countE;

   cout << "Введите кол-во зданий, которые необходимо запитать\r\n";

   cin >> countHouse;

   cout << "Введите кол-во единиц энергеии потребляемой одним зданием\r\n";

   cin >> intakeHouse;

   cout << "Введите кол-во единиц энергии производимой одной электро станцией\r\n";

   cin >> powerE;

   countE = ceil(countHouse * intakeHouse / powerE);

   cout << "Чтобы запитать " << countHouse << " домов, необходимо " << countE << " электростанций\r\n";

}

Объяснение:

n = input()

n=n.replace("."," ")

n=n.replace(","," ")

n=n.replace("!"," ")

n=n.replace("?"," ")

n=n.replace("-"," ")

n=n.replace("("," ")

n=n.replace(")"," ")

n = n.split()

maxlength = ""

maxcount  = ""

for a in range(len(n)):

   if len(n[a])>len(maxlength):

       maxlength = n[a]

   if n.count(n[a])>len(maxcount):

       maxcount = n[a]

print("maxcount: "+maxcount)

print("maxlength: "+maxlength)

Объяснение:

есть нюанс:а что если 2 или больше слова которые может быть одинаково длиной какую должен выводит?