А) разборчивая невеста при выборе жениха руководствуется правилом: «жених должен быть старше ее, но не намного». по известным возрастам: невесты – 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< 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.        

var x1, x2, x3, y1, y2, y3, p: real;

function len(x1, y1, x2, y2: real): real; begin len : = sqrt(sqr(x2 - x1) + sqr(y2 - y1)); end;

begin readln(x1, y1, x2, y2, x3, y3); p : = len(x1, y1, x2, y2) + len(x1, y1, x3, y3) + len(x2, y2, x3, y3); writeln(p: 8: 3); end.