Первая задача(я проверил программу, все норм работает)
var a,b,c,max,min,S:real;
begin read(a,b,c);
if a>b then if a>c then max:=a
else max:=c
else if b>c then max:=b
else max:=c;
if aelse min:=c
else if belse min:=c;
S:=max+min;
writeln(S:2:2);
end.

Вторая задача(я проверил программу, все норм работает)
var t,S,N:integer;
R:real;
begin read(N);
S:=0;
read(t);
while t0 do
begin S:=S+t;
read(t);
end;
R:=S/N;
writeln(R:2:2);
end.