Дана программа на языке Паскаль. Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 70, то «лёгкая категория» иначе «средняя категория». Заполните пустые окошки. program ves; const A1='легкая категория'; A2='средняя категория'; var s : integer; begin write('введите вес спортсмена (?) = '); readln(?) ); if (f < 61) < (?)then writeln(A1) else writeln(A2); readln; end.

Запишем высказывания Джона, Брауна и Смита в виде таблице, где o - это предположительный вор со слов одного из участников процесса, а x - невиновный.

         Д       Б        С
Д                x         o
Б       x       x
С                o         x

Рассмотрим варианты:
1. Джон сказал правду, тогда Смит - вор, тогда имеем
    Джон 2 раза сказал правду
    Браун 2 раза сказал правду
    Смит 2 раза соврал. 
Этот вариант не подходит под условие задачи.

2. Браун сказал правду, тогда очевидно снова Смит - вор, тогда
    Джон 2 раза сказал правду
    Браун 2 раза сказал правду
    Смит 2 раза соврал. 
Этот вариант тоже не подходит. 

3. Смит сказал правду, тогда Браун - вор, тогда
    Джон 2 раза соврал
    Браун 1 раз соврал, один раз сказал правду.
    Смит 2 раза сказал правду. 
Вариант подходит.

Значит 
Браун - вор и не может быть оправдан.
Джон - оболгал невиновного человека (Смита) и должен быть наказан за это.
Смит - не врал и не крал. Следовательно Смит должен быть оправдан.

Сделал в 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();
        }
    }
}