кто знает . Напишите программу, которая разделяет натуральные числа на сотые от числа с запятыми (считая справа).
Программа принимает на вход натуральное число.

Если число состоит менее чем из трех символов, программа отображает текст НЕТ.

Пример работы программы.
Исходные данные: 14875
Выходные данные: 14,875

Исходные данные: 148
Выходные данные: НЕТ

1
const     n = 10;
 var   
a : array [1..n] of integer; 
  i : integer;     
 begin 
 randomize; 
// Выбери нужный for
  
for i := 1 to n do 
    begin
      a[i] := i;   
   writeln (a[i]);   
 end;
   //a[1]=1,a[2]=2...a[10]=10 
     

//рандомом 
  for i := 1 to n do 
    begin   
  a[i] := 1 + random (9); 
     writeln (a[i]); 
   end;
  end.
2
 const     n = 25; //кол-во элементов
 var  a : array [1..n] of integer;
  i,k : integer;
 begin
  randomize; 
 for i := 1 to n do
   a[i] := -20+random(40);

    k := 0; 
 for i := 1 to n do 
  if a[i] mod 2 =1 then
    k := k +1; 
 writeln (k);
   end.

3
const     n = 10; 
var   a : array [1..n] of integer; 
  i,s1,s2 : integer; 
    begin 
 randomize; 
  for i := 1 to n do   
  begin   
   a[i] := -10+random(21); 
    writeln (a[i]);   
  end; 
     s1 := 0;
s2 := 0; 
  for i := 1 to n do   
begin 
   if a[i] > 0 then   
  s1 := s1 +a[i]; 
   if a[i] < 0 then 
    s2 := s2 +a[i];
    end;   
 writeln ('Сумма положительных=',s1); 
   writeln ('Сумма отрицательных=',s2); 
 end.

Program n1;
const razmer = 2001;
var a:array [1..100] of integer;
      b:array [0..100,0..100] of integer;   
      i,j,min:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 100 do
 begin
  a[i]:=random(razmer)-razmer div 2;
  write(a[i],' ');
  b[i,0]:=a[i];
  b[0,i]:=a[i];
 end;
writeln;

min:=a[1]+a[2];

writeln('Все возможные значения попарных сумм:');
for i:=1 to 100 do 
begin 
for j:=1 to i-1 do 
  begin 
   b[i,j]:=b[0,j]+b[i,0];
   write(b[i,j],' '); 
   if b[i,j]<min then min:=b[i,j];
  end; 
 writeln; 
end;

writeln('Наименьшее значение попарной суммы: ',min);
end.