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

Question

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. 
Программа должна находить среднее по значению число и выводить его на экран.

kublen · Accepted Answer

а в чем проблема, она работает

lado_50 · Answer

пиши в личку

vladimir_10718 · Answer

program fgh; 
var a,b,c : longint; 
Begin 
readln(a,b,c); 
if a in [b..c] then write(a) 
else 
if b in [a..c] then write(b) 
else 
write(c); 
end. 
Либо 
program fgh; 
var a,b,c : longint; 
Begin 
readln(a,b,c); 
Write( Min (Min (Max (A, B), Max (B, C)), Max (A, C))); 
end.

los_andzheles_5 · Answer

гугл в помощ. я не шарю