Дано трехзначное число. вывести да если среди его есть 1, и нет в остальных случаях

#include<iostream>

using namespace std;
int main(){
int N;
int *arr;
cout << "enter size of arr(enter N) : ";
cin >> N;
arr = new int [N];
cout << "enter arr : ";
for(int i = 1; i <= N;i++)
cin >> arr[i];
cout << "your arr : ";
for(int i = 1; i <= N;i++)
cout << arr[i] << " " ;
for(int i = 1; i <= N;i++)
{
arr[i] = arr[i] + i ;
}
cout << endl;

cout << "new arr : ";
for(int i = 1; i <= N ;i++)
cout << arr[i] << " " ;

}

Program Vigod;
uses crt;
const
  n = 12;
  m = 13;
var
  a:array[1..n,1..m] of integer;
  i, j, max: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  {заполняем массив случайными числами}
  randomize;
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=random(101)-50;
        if a[i,j] mod 3 = 0 then max:=a[i,j];
      end;
  {находим нужный элемент и выводим массив}
  for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        if (a[i,j] mod 3 = 0) and (a[i,j]>max)then
          max:=a[i,j];
        write(a[i,j]:4);
      end;
      writeln();
    end;
   writeln();
   writeln('максимальный элемент кратный 3, равeн ',max);
end.

Проверено - работает на Паскаль АВС