Приложение:
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.