Помогите с кодом(Pascal)

program fgh;
var a,b,c : longint;
Begin
readln(a,b,c);
if (a>b) and (b>c)
then begin
writeln(b);
end;
if (a>c) and (c>b)
then begin
writeln(c);
end;
if (b>a) and (a>c)
then begin
writeln(a);
end;
if (c>b) and (b>a)
then begin
writeln(b);
end;
if (b>c) and (c>a)
then begin
writeln(c);
end;
if (c>a) and (a>b)
then begin
writeln(a);
end;
end.

Программа должна находить среднее по значению число и выводить его на экран.