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

Я предлагаю решить эту задачу, написав программу на языке программирования Pascal ABC. Программа может выглядеть так:

program zadacha;

uses crt;

var a, b, c:integer;

begin

writeln ('vvedite chisla a, b, c:');

read (a, b, c);

if (ab) then writeln ('a mejdu c i b');

if (a>b) and (a
if (b>a) and (b
if (b>c) and (b
if (c>a) and (c
if (c>b) and (c
end.