Даны различные а,б,c, определить,какое из чисел лежит между 2 другими

Я предлагаю решить эту задачу, написав программу на языке программирования Pascal ABC. Программа может выглядеть так:program zadacha;uses crt;var a,b,c:integer;beginwriteln(\'vvedite chisla a,b,c:\');read(a,b,c);if (a<c) and (a>b) then writeln (\'a mejdu c i b\');if (a>b) and (a<c) then writeln (\'a mejdu b i c\');if (b>a) and (b<c) then writeln (\'b mejdu a i c\');if (b>c) and (b<a) then writeln (\'b mejdu c i a\');if (c>a) and (c<b) then writeln (\'c mejdu a i b\');if (c>b) and (c<a) then writeln (\'c mejdu b i a\');end.