Здравствуйте, Kuvart2009!
Вот решение с подачи Зенченко Константина Николаевича.
Код программы с пояснениями в приложении.

Приложение:
uses crt;
const nmax=50;{максимальное количество значений У}
var y:array[1..nmax]of real;{массив значений У}
x,xn,xk,dx,k:real;
n,i,s:integer;
begin
clrscr;
repeat {вводим количество значений с проверкой}
write('Kolichestvo znachenij Y n=');
readln(n);
until (n>0)and(n<=nmax);
writeln('Vvedite ',n,' znachenij Y:');
for i:=1 to n do
begin
write('y[',i,']=');{вводим сами значения}
readln(y[i]);
end;
clrscr;{очистим экран после ввода}
writeln(n,' znachenij Y:');{выведем количество и сами значения У}
for i:=1 to n do
write(y[i]:5:2);
writeln;
repeat {введем начало интервала и конец}
write('Nachalo intervala xn=');
readln(xn);
write('Konec intervala xk=');
readln(xk);
until xk>xn;{если конец больше начала, ввод правильный}
repeat
write('Shag vychislenij dx=');
readln(dx);
until(dx>0)and(dx<xk-xn);{шаг должен быть больше 0 и меньше длины интервала, лучше кратный длине, наприме при длине интервала 4, шаг 1, или 0,5 или 0,2}
s:=0;{счетчик строк}
for i:=1 to n do {перебираем все значения У}
begin
x:=xn;{сначала х=начальному}
while x<=xk do{пока х меньше конца}
begin
k:=(4*x-(y[i]-2))/3;{вычисляем значение К}
writeln(i:2,' y=',y[i]:0:2,' x=',x:0:2,' k=',k:0:2);{выводим в строку все данные}
x:=x+dx;{увеличиваем Х}
s:=s+1;{считаем строки}
if s mod 20=0 then readln;{после каждых 20 строк задержка, это когда строк много, чтоб все просмотреть, а не только последние}
end;
end;
readln
end.