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