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.