у меня сессия Написать программу, которая в текстовом файле заменит все
вхождения одного заданного слова на другое заданное слово
4.

Сделал в VS 2016

Вариант с использованием While
namespace ConsoleApplication
{
    class Program
    {
        static void Main(string[] args)
        {
            int a = Convert.ToInt32(Console.ReadLine());
            int b = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine(" ");
            while (a <= b)
            {
                if (a % 3 == 0)
                {
                    Console.WriteLine(a);
                }
                a++;
            }
       
            Console.ReadKey();        }
    }
}

Вариант с использованием do while
namespace ConsoleApplication
{
    class Program
    {
        static void Main(string[] args)
        {
            int a = Convert.ToInt32(Console.ReadLine());
            int b = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine(" ");
            do
            {
                if (a % 3 == 0)
                {
                    Console.WriteLine(a);
                }
                a++;
            }
            while (a <= b);            Console.ReadKey();
        }
    }
}

Вариант с использованием for
namespace ConsoleApplication
{
    class Program
    {
        static void Main(string[] args)
        {
            int a = Convert.ToInt32(Console.ReadLine());
            int b = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine(" ");
            for (int i = a; i <= b; i++)
            {
                if (i % 3 == 0)
                {
                    Console.WriteLine(i);
                }
            }            Console.ReadKey();
        }
    }
}

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.