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

Uses crt;
var r: array [1..10] of integer;
      nev, n, min,i, zap:integer;
begin
   clrscr;
   write('Введите возраст невесты: '); readln(nev);
   write('Введите число женихов: '); readln(n);
   if n<2 then
   for i:=1 to n do
   begin
   write('Введите возраст ',i,'-го жениха: '); readln(r[i]);
   end;

   i:=0; zap:=0;
   while (zap=0) and (i<=n) do begin  
     i:=i+1;
     min:=nev-r[i];
     if min>0 then zap:=i;
   end;
   if i<>n then
   begin
     for i:=zap to n do
     begin
        if min>(nev-r[i]) then
        begin
           zap:=i;
           min:=nev-r[i];
         end;
     end;
     writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.');
     writeln ('По счету это ',i,'-ый жених');
   end
   else writeln('Среди женихов нет подходящего для нашей невесты.');
  end;
  else writeln('Число женихов должно быть более 2!');
end.
     

Const
  nn = 100; { максимальное количество элементов }
var
  a:array[1..nn] of integer;
  i,n,k,kn,kp,ko,ke: integer;
begin
  Writeln('Введите количество элементов в массиве (n<=100): ');
  Readln(n);
  Writeln('Введите элементы массива');
  kn:=0; kp:=0; ko:=0; ke:=0;
  for i := 1 to n do
  begin
    Read(k); a[i]:=k;
    if k>0 then Inc(kp)
    else if k<0 then Inc(kn);
    if (k mod 2)=0 then Inc(ke) else Inc(ko)
  end;
  Writeln('Положительных элементов ',kp,', отрицательных ',kn);
  Writeln('четных элементов ',ke,', нечетных ',ko);
end.

Тестовое решение:
Введите количество элементов в массиве (n<=100):
13
Введите элементы массива
16 -5 8 21 0 -5 13 32 7 11 -4 2 -5
Положительных элементов 8, отрицательных 4
четных элементов 6, нечетных 7