Урок 9. Задача 13

Урок 9. Задача 13

У вас есть три числа (три переменные) найдите их медиану(link is external)

var a,b,c: integer;
begin
readln(a);
readln(b);
readln(c);
if ((a>b) and (c>a)) or ((b>a) and (a>c)) or ((a=b) and (a=c))then
    writeln(a);
if ((b>c) and (a>b)) or ((c>b) and (b>a)) then
    writeln(b);
if ((c>a) and (b>c)) or ((a>c) and (c>b)) then
    writeln(c);
end.   

консоль:

1
2
3
2