Вычислить выражение - Turbo Pascal (29225)

Формулировка задачи:

пожалуйста вычислите выражение , и если можно еще блок схему его , напишите пожалуйста полную программу с началом и концом очень надо

Решение задачи: «Вычислить выражение»

Листинг программы

xi: shortint absolute x;

Объяснение кода листинга программы

объявляется переменная x типа shortint (целое число) и присваивается значение переменной x;
объявляется переменная absolute_x типа shortint и присваивается абсолютное значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной x;
присваивается значение переменной X;
присваивается значение переменной X;
присваивается значение переменной X;
присваивается значение переменной X;