. а) Разборчивая невеста при выборе жениха руководствуется правилом: «жених должен быть старше ее, но не намного». По известным возрастам: невесты – N лет, женихов R1 лет, R2 лет, R3 лет– определить, которого она выберет– первого второго или третьего.

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   for i:=1 to n do
   begin
   write(Введите возраст ,i,-го жениха: ); readln(r[i]);
   end;

   i:=0; zap:=0;
   while (zap=0) and (i     i:=i+1;
     min:=nev-r[i];
     if min>0 then zap:=i;
   end;
   if in 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.