Написать программку, которая выводит функцию У = модуль Х, спектр от

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

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

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

begin //Начало. 

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

while x lt; 4 do begin //Код исполняется, пока x lt; 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. //Конец программы.