Надо срочно написать программу

[Fylhtq]

6 Real по невозрастанию абсолютного значения метод пузырька




выполнить тип simpl1-simpl4 по своим методам
Program Simpl1;
Var
X : Byte;
Procedure Proc1;
Begin
X := 1
End;

Begin
X := 0;
Proc1;
Writeln ('X = ', X)
End.

Program Simpl2;
Var
X : Byte;
Procedure Proc2;
Var X : Byte;
Begin
X := 1
End;
Begin
X := 0;
Proc2;
Writeln ('X = ', X)
End.

Program Simpl3
Var
X : Byte;
Procedure Proc3 (Y : Byte);
Begin
Y := 1
End;
Begin
X := 0;
Proc3 (X);
Writeln ('X = ', X)
End.


Program Simpl4;
Var
X : Byte;
Procedure Proc4 (Var Y : Byte);
Begin
Y := 1
End;
Begin
X := 0;
Proc4 (X);
Writeln ('X = ', X)
End.

[Fylhtq]

кАК бы еще это написать простые но не думается

[Fylhtq]

Методические указания
Упорядочение (сортировка) массива состоит в том, чтобы расположить данные, записанные в его элементах, в соответствии с заданным признаком. Таким признаком может быть, например, алгебраическое значение записанного числа. В этом случае в упорядоченном массиве данные могут располагаться:
1) по возрастанию, когда ;
2) по убыванию, когда ;
3) по неубыванию, когда ;
4) по невозрастанию, когда .