Ну ряды данных отображаются вертикально а категорий горизонтально(хотя можно поменять)
Элементы : легенда, ключи легенды, элементы легенды, названия осей, ряды данных и категорий, название диаграммы. Предназначения не знаю. Но тут уже логически можно написать просто.
Var
b: integer;
function y(x: integer): real;
begin
y := exp(6*ln(3*x)) - SQR(6*x) - 7;
end;
begin
readln(b);
writeln(y(b));
<span>end.</span>
Ответ на твой вопрос думаю такой - 1100110
Const
n=6;
Type vector=array[1..n] of integer;
var x:vector;
i:integer;
pr:extended;
begin
<u>pr:=1;</u>
for i:=1 to n do
begin
readln(x[i]);
if x[i] mod 17=0 then
pr:=pr*x[i];
end;
writeln('proizvedenie= ',pr:4:4);
readln;
<span>end.</span>