Известен рост 3-х человек определить самого высокого и самого низкого.Также учесть что возвраста некоторых людей могу совпадать. Составить блок схему.

begin

  // предполагается, что все три роста разные

  var a,b,c,max,nmax,min,nmin:integer;

  Write('Введите рост трех человек: '); Read(a,b,c);

  if a>b then begin // a - не min, b не max

    if c>a then begin max:=c; nmax:=3; min:=b; nmin:=2 end

    else begin

      max:=a; nmax:=1;

      if b<c then begin min:=b; nmin:=2 end

      else begin min:=c; nmin:=3 end

      end

    end

  else begin // b не min, a не max

    if c>b then begin max:=c; nmax:=3; min:=a; nmin:=1 end

    else begin

      max:=b; nmax:=2;

      if a<c then begin min:=a; nmin:=1 end

      else begin min:=c; nmin:=3 end

      end

    end;

  Writeln('Максимальный рост ',max,' у человека номер ',nmax);

  Writeln('Минимальный рост ',min,' у человека номер ',nmin)

end.