Даны три числа A,B,C.

//Äàíû òðè ÷èñëà A,B,C. Âû÷èñëèòü ýêïîíåíòó òîãî ÷èñëà, çíà÷åíèå êîòîðîãî áëèæå âñåãî ê çíà÷åíèþ
//ôóíêöèè Y=(power(a,2)+power(b,2)+power(c,2))/(a+b+c) Åñëè a+b+c=0, òî âûâåñòè ñîîáùåíèå îá ýòîì.
uses crt;
var a,b,c,y,n,min: real;
    w: array [1..3] of real; i: integer;
begin
     Writeln('Ââåäèòå òðè ÷èñëà');
     Write('Ââåäèòå A=');Readln(A);
     Write('Ââåäèòå B=');Readln(B);
     Write('Ââåäèòå C=');Readln(C);
     if a+b+c=0 then Writeln('Ñóììà ÷èñåë A, B, C ðàâíà íóëþ')
     else
         begin
         y:=(power(a,2)+power(b,2)+power(c,2))/(a+b+c);
         Writeln('y=',y:0:4);
         w[1]:=abs(y-a); w[2]:=abs(y-b); w[3]:=(y-c);
         for i:=1 to 3 do
         Writeln('w[',i,']=',w[i]:0:4);
         min:=w[1];
         for i:=2 to 3 do
         if w[i]<min then min:=w[i];
         Writeln('min=',min:0:4);
         if min=w[1] then n:=exp(a) else
         if min=w[2] then n:=exp(b) else n:=exp(c);
         Writeln('n=',n:0:4);
         end;
     readln
end.

//Даны три числа A,B,C. Вычислить экпоненту того числа, значение которого ближе всего к значению
//функции Y=(power(a,2)+power(b,2)+power(c,2))/(a+b+c) Если a+b+c=0, то вывести сообщение об этом.
uses crt;
var a,b,c,y,n,a1,b1,c1: real;
    w: array [1..3] of real; i: integer;
begin
     Writeln('Введите три числа');
     Write('Введите A=');Readln(A);
     Write('Введите B=');Readln(B);
     Write('Введите C=');Readln(C);
     if a+b+c=0 then Writeln('Сумма чисел A, B, C равна нулю')
     else
         begin
         y:=(power(a,2)+power(b,2)+power(c,2))/(a+b+c);
         Writeln('y=',y:0:4);
         a1:=abs(y-a); b1:=abs(y-b); c1:=(y-c);
         Writeln('a1=',a1,'   ','b1=',b1,'   ','c1=',c1);
         if (a1<b1) and (a1<c1) then n:=exp(a) else
         if (b1<a1) and (b1<c1) then n:=exp(b) else
         n:=exp(c);
         Writeln('n=',n);
     end;
end.