var
a1, a2, a3: integer;
begin
write ('Введите три числа: ');
readln (a1, a2, a3);
if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then
writeln(a1)
else
if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then
writeln(a2)
writeln(a3);
end.
Объяснение:
var
a1, a2, a3: integer;
begin
write ('Введите три числа: ');
readln (a1, a2, a3);
if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then
writeln(a1)
else
if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then
writeln(a2)
else
writeln(a3);
end.
Объяснение: