Вычислите значение функции x^2/x-2 на промежутке [-4; 0.5] с шагом 0.5. Паскаль

Составим программу вычисления значения функции y по формуле y = x * x / x-2 (x - данное целое число) на промежутке [-4; 0.5] с шагом 0.5 на языке программирования Pascal ABC. Введем обозначения следующих величин: пусть y - значение функции, которую надо вычислить, а х - заданное число. Так как нам надо вычислить несколько значений функции, то будем использовать в программе цикл с предусловием while. Тогда программа может выглядеть так:

program zadacha;

uses crt;

var x, i, y: real;

begin

x:=-4;

while x<=0.5 do

begin

y:=x*x/x-2;

writeln ('y=', y);

x:=x+0.5;

end;

end.