Даны 3 числа: a,b,c. определить среднее арифметическое двух не максимальных чисел. позязя^^

Var
a,b,c:integer;
s:real;
begin
read(a,b,c);
if (a>b)and (a>c) then
 s:=(b+c)/2else
if (c>a)and (c>b) then
s:=(b+a)/2
else
if (b>a)and (b>c) then
 s:=(a+c)/2;
writeln(s);
end.