Утворіть назви людей (чол. і жін роду) за місцем проживання або національністю, виділіть суфікси.
греція, туреччина, китай, чернігів, івано-франківськ, сибір, баку, одеса.

Const N = 30; // Количетсво дней
var
i,count:integer;
h: array [1..N] of integer;
begin
count:=0;
writeln('Введите количество осадков');
for i:=1 to N do
read(h[i]);
for i:=1 to N do
if h[i]>0 then
count:=count+1;
writeln('Количество дождливых дней ', count)
end.

В первой строке указываем количество дней. Это константа N
Далее объявляем, что переменная count равна 0. В этой переменной мы будем хранить количество дней с осадками.
Далее мы вводим с клавиатуры 30 чисел, показывающих осадки.
Потом мы проверяем, если число в массиве больше нуля, то мы увеличиваем count на единицу. Тоесть прибавляем +1 день с осадками.
В конце выводим количество дней с осадками

C#
3:
using System.IO;
using System;

namespace тылпыа
{
    class Program
    {
        public static void Main(string[] args)
        {
            StreamReader reader = new StreamReader("input.txt");
            StreamWriter writer = new StreamWriter("output.txt");
            string input = " ";
            while (true) {
                input = reader.ReadLine();
                if (input == null) {
                    break;
                }
                writer.WriteLine(input.Replace(", короче,", ", в общем,"));
            }
            writer.Close();
        }
    }
}