Написать программу по блок-схеме

var a,b,c:integer; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if a>b   then if ac then writeln(b,' - среднее')                          else writeln(c,' - среднее')  else if a>c then writeln(a,' - среднее')               else if b