помогите написать программку(p. S. Учесть любые условия, включая те, когда два

var a,b,c: integer;

begin

readln (a,b,c);

if ((a gt; b) and (a lt; c)) or ((a lt; b) and (a gt; c)) or ((alt;b) and (b=c)) or ((alt;b) and (a=c)) or ((alt;c) and (a=b)) then writeln(a)

else if ((b gt; a) and (b lt; c)) or ((b lt; a) and (b gt; c)) then writeln(b)

else writeln(c);

end.