Помогите срочно надо. Известен рост 3-х человек определить самого высокого и самого низкого. Блок-схема в фото. я уже пробывала , но у меня ничего не получается . Буду благодарна

У Вас тут нет подпрограмм, так что пользоваться надо F8 при отладке. А по F7 Вы заходите в системные программы, работающие со вводом и нажимая лишние клавиши, карявите их работу.

а как в Кумире можете?

Можете всё вот это записать в Псевдокопы

Про Кумир ничего не было сказано в вопросе.

program rost;var R1,R2,R3,max:integer;begin writeln('Введите рост первого человека'); readln(R1); writeln('Введите рост второго человека'); readln(R2);writeln('Введите рост третьего человека'); readln(R3);max:=R1; if R2>max then    begin      max:=R2;      if R3>max then max:=R3    end else if R3>max then max:=R3;writeln('Рост самого высого человека=',max);end.

// PascalABC.NET 3.2, сборка 1404 от 16.03.2017// Внимание! Если программа не работает, обновите версию!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.ПримерВведите рост трех человек: 169 172 170Максимальный рост 172 у человека номер 2Минимальный рост 169 у человека номер 1