Допоможіть написати програму мовою Паскаль за цією задачою!

На одному маленькому квадратному безлюдному острові зі стороною а м. перебували к Робінзонів. Чи не порушені їхні права на житло, якщо на кожного Робінзона повино придбати S м^2 площі острова? Скільком новим Робінзонам ще вистачить місця на острові?

Задача полягає в тому, щоб визначити, чи вистачить площі острова для нового числа Робінзонів, враховуючи, що кожному з них потрібно певну площу острова для проживання.

1. Вхідні дані:

   • Острів має форму квадрата зі стороною а метри.
   • Є к Робінзонів.
   • Кожному Робінзону потрібно S м² площі для проживання.

2. Задача:

   • Необхідно перевірити, чи вистачає площі острова для всіх к Робінзонів, враховуючи, що кожен займає площу S.
   • Якщо площі не вистачає для всіх Робінзонів, потрібно порахувати, скільки нових Робінзонів можна розмістити на острові.

Алгоритм рішення:

1. Обчислення площі острова: Площа острова знаходиться за формулою:

   $$\text{Площа острова} = a^2$$

   де a — це сторона квадрата острова.

2. Площа, необхідна для всіх Робінзонів: Площа, яку займають всі Робінзони:

   $$\text{Необхідна площа} = k \times S$$

   де k — кількість Робінзонів, а S — площа, яку потребує один Робінзон.

3. Перевірка, чи вистачає площі: Якщо площа острова більше або дорівнює необхідній площі, то всі Робінзони розмістяться на острові. Якщо ні — треба порахувати, скільки ще Робінзонів можна розмістити на залишковій площі.

4. Обчислення залишкової площі і нових Робінзонів: Якщо площі острова не вистачає для всіх Робінзонів, то залишкова площа обчислюється так:

   $$\text{Залишкова площа} = a^2 - k \times S$$

   Кількість нових Робінзонів, яких можна розмістити на залишковій площі:

   $$\text{Нові Робінзони} = \left\lfloor \frac{\text{Залишкова площа}}{S} \right\rfloor$$

   (де $\left\lfloor x \right\rfloor$ — це операція взяття цілої частини числа).

Приклад:

Припустимо, що:

• Сторона острова a = 10 м.
• На острові є k = 5 Робінзонів.
• Кожен Робінзон потребує S = 10 м².

1. Площа острова:

   $$a^2 = 10^2 = 100 \text{ м}^2$$

2. Необхідна площа для 5 Робінзонів:

   $$5 \times 10 = 50 \text{ м}^2$$

   Острів має достатньо місця для всіх 5 Робінзонів, оскільки 100 м² ≥ 50 м².

3. Якщо ми хочемо дізнатися, скільки ще Робінзонів може розмістити острів, то після того, як 5 Робінзонів займуть 50 м², на острові залишиться:

   $$100 - 50 = 50 \text{ м}^2$$

   Кількість нових Робінзонів, яких можна розмістити:

   $$\left\lfloor \frac{50}{10} \right\rfloor = 5$$

Програма на мові Паскаль:

pascal
program Island;
var
  a, k, S: Integer;
  islandArea, requiredArea, remainingArea, newRobinsons: Integer;
begin
  // Введення даних
  Write('Введіть сторону острова (a): ');
  ReadLn(a);
  Write('Введіть кількість Робінзонів (k): ');
  ReadLn(k);
  Write('Введіть площу, необхідну для одного Робінзона (S): ');
  ReadLn(S);
  // Обчислення площі острова
  islandArea := a * a;
  // Обчислення необхідної площі для поточних Робінзонів
  requiredArea := k * S;
  // Перевірка, чи вистачає площі для поточних Робінзонів
  if islandArea >= requiredArea then
    WriteLn('Права на житло не порушені.')
  else
    WriteLn('Права на житло порушені.');
  // Обчислення залишкової площі
  remainingArea := islandArea - requiredArea;
  // Обчислення кількості нових Робінзонів
  newRobinsons := remainingArea div S;
  WriteLn('Кількість нових Робінзонів, яких можна розмістити на острові: ', newRobinsons);
end.

Пояснення коду:

• Спочатку програма отримує вхідні дані (сторону острова, кількість Робінзонів і площу для одного Робінзона).
• Обчислюється площа острова та необхідна площа для всіх Робінзонів.
• Програма перевіряє, чи вистачить площі для всіх Робінзонів і виводить відповідне повідомлення.
• Якщо площа не вистачає, обчислюється, скільки нових Робінзонів ще можна розмістити на залишковій площі.

Задача вирішена за допомогою простих арифметичних операцій та умовних операторів.