Задача 16 Урок 9

Задача 16 Урок 9

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

Решение:

var a,b,c: integer;

begin
 writeln('vvedite 3 chisla');
 readln(a,b,c);
 if (a>b) AND (a<c) then
   writeln('mediana -',a);
 if (b>a) AND (b<c) then
   writeln('mediana -',b);
 if (c>a) AND (c<b) then
   writeln('mediana -',c);
 readln();
end.