ПОМОГИТЕЕЕЕЕЕЕЕЕЕЕЕ!!!!
Помогите создать ветвящуюся программу в Паскале! Пожалуйста!!!Буду очень благодарна!

наоборот, чем проще, тем лучше

так как мне нужно её объяснять, а это тяжело

спасибо

то есть.....я тяжело решила? или тяжело объяснять?

всё хорошо, не очень тяжело, спасибо

пожалуйста ...обращайтесь если что!

var A: array[1..3] of real;temp: real;i, j: integer;beginwrite('Введите x: ');readln(A[1]);write('Введите y: ');readln(A[2]);write('Введите z: ');readln(A[3]);for i:=1 to 3-1 dofor j:=1 to 3-i doif (A[j] < A[j+1]) thenbegintemp := A[j];A[j] := A[j+1];A[j+1] := temp;end;for i := 1 to 3 do writeln(A[ i ]);end.

program aliona;var x,y,z:integer;max,sr,min:integer;beginwriteln('vvedite x ,y,z');readln(x ,y ,z);if (x>y) and (x>z) and (z>y) then beginmax:=x;sr:=z;min:=y;end;if (y>z) and (y>x) and (x>z) then beginmax:=y;sr:=x;min:=z;end;if (z>y) and (z>x) and (y>x) then beginmax:=z;sr:=y;min:=x;end;writeln(max,' ',sr,' ',min);readln;end.