Спрограммами, . pascal. 1) из трех, задаваемых с клавиатуры чисел a, b, c, найти сумму наименьшего и наибольшего из этих чисел. 2) найти среднеарифметическую температуру воздуха за n дней. число дней и температуру воздуха каждого дня задать самостоятельно.

Первая задача(я проверил программу, все норм работает)
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 a<b then if a<c then min:=a
else min:=c
else if b<c then min:=b
else 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 t<>0 do
begin S:=S+t;
read(t);
end;
R:=S/N;
writeln(R:2:2);
end.