Написать программу, которая выводит функцию У = модуль Х, диапазон от 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. / /Конец программы.