Даны три числа 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.