Напиши программу которая выводит значения функции y=f(x).Аргумент x переменная от x1 до x2 с шагом дельта x

var x1, x2, n:integer; y: real; begin write('Введите х1: '); read(x1); n:=x1; write('Введите х2: '); readln(x2); while n<>(x2+1) do begin y:=n/3+2; writeln('y =  ',y); n:=n+1; end; end.