Запишите на языке Pascal следующее выражение

(sqrt(abs(a)+b))*(sqrt(abs(a)+b))

  v=331+0,6*(-35)=310 м/c

v=331+0,6*30=349 м/c

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.