Var A: array[1..3] of real;
temp: real;
i, j: integer;
begin
write('Введите x: ');
readln(A[1]);
write('Введите y: ');
readln(A[2]);
write('Введите z: ');
readln(A[3]);
for i:=1 to 3-1 do
for j:=1 to 3-i do
if (A[j] < A[j+1]) then
begin
temp := 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;
begin
writeln('vvedite x ,y,z');
readln(x ,y ,z);
if (x>y) and (x>z) and (z>y) then
 begin
max:=x;
sr:=z;
min:=y;
end;
if (y>z) and (y>x) and (x>z) then
begin
max:=y;
sr:=x;
min:=z;
end;
if (z>y) and (z>x) and (y>x) then
begin
max:=z;
sr:=y;
min:=x;
end;
writeln(max,' ',sr,' ',min);
readln;
end.