Написать программу, которая выводит функцию У = модуль Х, диапазон от 1 до 4 , шаг превращения 0,5

var y: array[1..4] of integer; //Заводим переменную для y. Для удобства сделаем массив.

x: byte; //Заводим переменную для x.

i: integer; //Заводим переменную для i.

begin //Начало. 

x := 0.5; //Диапазон от 1. Начальное значение сделаем чуть меньше - сразу увеличится в цикле.

while x < 4 do begin //Код исполняется, пока x < 4.

i := i + 1; //Индекс для массива y.

x := x + 0.5; //Шаг превращения 0.5.

y[i] := sqrt(sqr(x)); //Заносим в массив модуль числа x.

end; //Конец цикла.

for i := 1 to x do writeln(y[i]); //Выводим рассчитанные значения функции.

end. //Конец программы.