Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Оп- ределить функцию для расчета количества цифр натурального числа.)
ЯЗЫК: PASKAL ABC​

Консольное приложение:
const n=9; 
var l:array[1..n] of integer;
i,max,imax,min,imin,s:integer; 
begin
Randomize;
writeln('Массив L:');
for i:=1 to n do
 begin
 l[i]:=random(51);
 write(l[i]:4);
 end;
writeln;
max:=l[1]; imax:=1;
min:=l[1]; imin:=1;
for i:=2 to n do
 begin
 if l[i]>max then begin max:=l[i]; imax:=i; end;
 if l[i]<min then begin min:=l[i]; imin:=i; end;
 end;
writeln('max = l[',imax,'] = ',max);
writeln('min = l[',imin,'] = ',min);
s:=0;
if imax>imin
 then for i:=imin+1 to imax-1 do s:=s+l[i]
 else for i:=imax+1 to imin-1 do s:=s+l[i];
writeln('s = ',s);
end.

Пример:
Массив L:
  31  49  41  15   9  47  37  11  27
max = l[2] = 49
min = l[5] = 9
s = 56

#include <iostream>
using namespace std;
int main()
{
int n,max;
bool a=false;
cout<<"enter kol-vo numbers:"<<endl;
cin>>n;
if(n<=1000)
{
int arr[n];
cout<< "enter 1 chislo"<<endl;
cin>>arr[0];
max=arr[0];
if(arr[0] % 10==3 && arr[0]<30000)
{
a=true;
for (int i=1;i<n;i++)
{
cout<<"enter "<<(i+1)<<" chislo"<<endl,
cin>>arr[i];
if(arr[i]>30000) {goto b;}
}
for (int i = 0; i < n; ++i) {
if (arr[i] > max && arr[i] % 10==3)
{
max = arr[i];
}
}
}
}
b:
if(a){ cout<<" max chislo okanch na 3: "<< max<<endl; }
return 0;
}