Как мы знаем шоколадки дарят только тем, кто хорошо тест. поэтому в детском саду №603075 решили подарить 228 грамм шоколада каждому ребенку, кто набрал не менее x за тест. шоколад продаётся плитками по 1337 грамм. плитка ломается на кусочки по 228 грамм и эти кусочки детям. остаток не выбрасывается и учитывается в следующем подарке. определите сколько детей получат награду и сколько плиток шоколада для этого необходимо приобрести. решите поалуйста

//PascalABC.NET
//Постройте алгоритм и составьте программу, по которой будет реализован
//следующий вариант сценарий: компьютер запрашивает номер дня недели,
//после ввода компьютер сообщает название этого дня (типо если ввели
//1 это понедельник 3 - среда)

type Arr = array [0..6] of string;

begin
    var DN: Arr := ('Воскресенье', 'Понедельник', 'Вторник', 'Среда',
                'Четверг', 'Пятница', 'Суббота');
    write('Введите порядковый номер дня недели: ');
    var n := ReadlnInteger;
    write('Этот день называется ', DN[n mod 7])
end.

Кодяра ниже

using System;
public class Test{
    public static void Main(){
        const int max = 100;
        int[] a = new int[max];
        for(int i = 0; i < max; ++i){
            Console.Write("a[{0}] = ", i);
            a[i] = Convert.ToInt32(Console.ReadLine(), 10);
        }
        Console.Clear();
        Console.WriteLine("Исходный массив:");
        for(int i = 0; i < max; ++i)
            Console.Write("{0} ", a[i]);
        Console.WriteLine();Console.WriteLine();
        bool k = false;
        for(int i = 2; i < max; ++i)
        if((a[i] - a[i-1]) != (a[i-1] - a[i-2])){
            k = true;
            break;
        }
        if(k) Console.WriteLine("Это НЕ арифметическая прогрессия");
        else Console.WriteLine("Это арифметическая прогрессия c разностью {0}", a[1]-a[0]);
    }
}

Кодяра выше