Составьте блок-схему и запишите программу на языке паскаль решения следующих : даны три различных числа. найти "среднее" число. это то, которое больше минимального и меньше максимального.

Program DZ;
var a,b,c:real;
var D:real;
begin
readln (a,b,c);
D := (a+b+c)/3;
Writeln (D);
end.

думаю самое легкое решение, самое не мудреное (ПыСы люби паскаль)