Даны три числа a, b, c. Найти среднее из них. Например: a

program zadacha;

var a, b, c, s: real;

begin

writeln ('Введите три числа: ') ;

readln (a, b, c) ;

if a < b then

if b < c then s : = b

else

if a < c then s : = c

else s : = a

else

if b > c then s : = b

else

if a > c then s : = c

else s : = a;

writeln ('Среднее по значению: ', s) ;

end.