uses crt;
const n=5;
var m:array[1..n]of integer;
i,j,b:integer;
begin
clrcsr;
write('Введите числа -> ');
for i:=1 to N do read(m[i]);
readln;
for i:=N downto 1 do
for j:=1 to i-1 do if m[j] > m[j+1] then
begin
b:=m[j];
m[j]:=m[j+1];
m[j+1]:=b;
end;
writeln(m[(N div 2) + 1]);
readln;
end.