поместится ли a кг апельсинов в b ящиков (вместимость ящика -с кг)? паскаль

Вам нужно определить, поместится ли \( a \) кг апельсинов в \( b \) ящиков, если каждый ящик вмещает \( c \) кг. Для этого можно воспользоваться простым условием:

1. Рассчитайте общую вместимость всех ящиков: \( \text{общая вместимость} = b \times c \).
2. Если \( a \) (вес апельсинов) меньше или равен общей вместимости, значит, апельсины поместятся в ящики.

Ниже приведен пример кода на Паскале, который реализует эту логику:

program CheckOranges;

var
  a, b, c: Integer;
  totalCapacity: Integer;

begin
  Write('Введите вес апельсинов (а кг): ');
  ReadLn(a);
  Write('Введите количество ящиков (b): ');
  ReadLn(b);
  Write('Введите вместимость одного ящика (c кг): ');
  ReadLn(c);
  
  totalCapacity := b * c; // Общая вместимость ящиков

  if a <= totalCapacity then
    WriteLn('Апельсины поместятся в ящики.')
  else
    WriteLn('Апельсины не поместятся в ящики.');
end.

Этот код запрашивает у пользователя ввод значений для веса апельсинов, количества ящиков и вместимости одного ящика, а затем выводит, поместятся ли апельсины в ящики или нет.