uses crt;
var a,b,c,low,high,mid:integer;
begin;
clrscr;
writeln('Введите три числа(после каждрого ENTER)');
readln(a);
readln(b);
readln(c);
low:=a;
high:=a;
IF b < low THEN low:=b;
IF c < low THEN low:= c;
IF b > high THEN high := b;
IF c > high THEN high := c;
IF low=a THEN begin
if high=b then mid:=c;
if high=c then mid:=b;
end;
IF low=b THEN begin
if high=c then mid:=a;
if high=a then mid:=c;
end;
IF low=c THEN begin
if high=a then mid:=b;
if high=b then mid:=a;
end;
writeln('Между ',low,' и ', high,' лежит ', mid);
end.