program raf105;
var c:array[1..999] of real;
i,x,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
write('Введите значение X: ');
readln(x);
writeln('Элементы массива:');
for i:=1 to n do
begin
c[i]:= 6*x-i/7-6;
writeln(c[i]);
end;
end.
Язык программирования PascalABC
