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 &lt- low THENlow:=b-

IF c &lt- low THENlow:= c-

IF b &gt- high THENhigh := b-

IF c &gt- 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.