Дана последовательность чисел. Разгадайте исходное сообщение: 2246 2056 2460 2379 2858 2305 2240 2855 2134
2421 2344 2460 2043
2030 2381 2055
2310 2344 2055 2307 3106 2416 2376 2414 2022 2112 3100
2310 2344 2055 2274 2042 2272 2184 2050 2022 2013 2047 2410
ответ запишите заглавными буквами без пробелов

Открываете раздел по языку набираете ключевое слово: string.  Смотрите все процедуры и функции, для работы с переменными типа string 
 Находите описание функции Pos

function Pos(subs,s: string): integer;
        Возвращает позицию подстроки subs в строке s. Если не найдена, возвращает 0 

Если строка subs входит в строку s, то функция возвращает значение, большее нуля, номер первого символа в сроке s, начиная с которого, строка subs входит в строку s.
Например,  subs:='123';    s:='785123456';  k: integer;
k:=Pos(subs,s);   значение переменной k = 4;
Второй пример:   subs:='123;  s:=623145;
k:=Pos(subs,s);  k =0;   строка subs не входит в строку s

public partial class Form1 : Form{    public Form1()    {        InitializeComponent();        this.Load += Form1_Load;        this.Paint += Form1_Paint;        DoubleBuffered = true;    }     int r = 100;     //радиус    int x0 = 150;   //координата X центра окружности    int y0 = 150;   //координата X центра окружности    float x = 0, y = 0;    double fi = 0.0;    void Form1_Load(object sender, EventArgs e)    {        Timer tmr = new Timer();        tmr.Interval = 30;        tmr.Tick += tmr_Tick;        tmr.Start();    }     void tmr_Tick(object sender, EventArgs e)    {        fi += 0.1;        if (fi > 2 * Math.PI) fi = 0.0;        x = (float)(r * Math.Cos(fi) + x0);        y = (float)(r * Math.Sin(fi) + y0);        Invalidate();    }     void Form1_Paint(object sender, PaintEventArgs e)    {        e.Graphics.FillEllipse(Brushes.Red, x, y, 20, 20);    }}