Петя очень любит есть яблоки, но съесть он может их только N.
Каждый раз Петя берет целое число яблок и ест их.
Напишите программу, которая вовремя остановит Петю!

Пользователь вводит число N, сколько яблок Петя сможет съесть.
После чего пользователь вводит, сколько яблок взял Петя и ест их все сразу, если может.
Программа пишет сколько яблок смог съесть Петя и пишет "Хватит, Петя, есть яблоки!" иначе.

по сравнению со многими популярными пакетами данный обладает рядом особенностей, позиционируемых её авторами как преимущества.

основная особенность — почти полное отсутствие окон предварительных настроек. все характеристики во время или сразу после окончания действия инструмента с клавиатуры в поле value control box (поле контроля параметров), которое находится в правом нижнем углу рабочей области, справа от надписи measurements (панель измерений).

ещё одна ключевая особенность — это инструмент push/pull («тяни/толкай»), позволяющий любую плоскость «выдвинуть» в сторону, создав по мере её передвижения новые боковые стенки. утверждается, что этот инструмент запатентован[3]. двигать плоскость можно вдоль заранее заданной кривой, для этого есть специальный инструмент follow me («ведение»).

отсутствие поддержки карт смещения[en] (. displacement maps) объясняется нацеленностью продукта на непрофессиональную целевую аудиторию.

также можно отметить следующие возможности:

поддержка плагинов для экспорта, визуализации, создания эффектов (вращения, движения, взаимодействия созданных объектов между собой и пр.)

поддержка создания макросов на языке ruby и вызова их из меню. макросами можно автоматизировать выполнение повторяющихся действий. доступна функция загрузки и использования многочисленных готовых макросов, предоставленных другими пользователями.

поддержка создания «компонентов» — элементов модели, которые могут быть созданы, затем использованы много раз, а потом отредактированы — и изменения, сделанные в компоненте, отразятся во всех местах, где он использован.

библиотека компонентов (моделей), материалов и стилей рабочей области, которые можно пополнять своими элементами или загружать готовые из сети интернет.

инструмент для просмотра модели в разрезе и возможность добавлять к модели выноски с обозначением видимых размеров в стиле чертежей

возможность работать со слоями

возможность создания динамических объектов (например: открытие дверцы шкафа по клику указателя)

возможность построения сечений объектов

возможность работы со сценами (сцена включает в себя положение камеры и режим отрисовки), и анимировать переходы от сцены к сцене

поддержка создания моделей реальных предметов и зданий

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
procedure MatInput(a:array[,] of integer);
begin
  Writeln('Вводите элементы матрицы построчно, в конце нажимая Enter');
  for var i:=0 to Length(a,0)-1 do begin
    Write(i+1,': ');
    for var j:=0 to Length(a,1)-1 do Read(a[i,j]);
    end
end;

procedure MatPrint(a:array[,] of integer);
begin
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to Length(a,1)-1 do Print(a[i,j]);
    Writeln
    end
end;

function IsEqual(a:array[,] of integer; j1,j2:integer;
  flag:array of boolean):boolean;
// равны ли столбцы с индексами j1 и j2
begin
  if flag[j2]=False then begin
    Result:=True;
    for var i:=0 to Length(a,0)-1 do
      if a[i,j1]<>a[i,j2] then begin Result:=False; Break end;
    flag[j2]:=Result
    end
end;

begin
  var n:=ReadInteger('Задайте число строк (столбцов) матрицы:');
  var a:array[,] of integer;
  var m:=ArrFill(n,False);
  SetLength(a,n,n);
  MatInput(a);
  Writeln('*** Принятая матрица ***');
  MatPrint(a);
  var k:=1;
  for var i:=0 to n-2 do
    for var j:=i+1 to n-1 do
      if IsEqual(a,i,j,m) then Inc(k);
  if k>1 then Writeln('Количество совпадающих столбцов равно ',k)
  else Writeln('нет совпадающих столбцов')
end.

Тестовое решение
Задайте число строк (столбцов) матрицы: 3
Вводите элементы матрицы построчно, в конце нажимая Enter
1: 1 2 2
2: 3 5 5
3: 2 2 2
*** Принятая матрица ***
1 2 2
3 5 5
2 2 2
Количество совпадающих столбцов равно 2