<span>Любая часть окружащей действительности (предмет,процесс, явление), воспринимаемая человеком как единое целое</span> - объект
И вот это проходят в 1-4 классах, ну нифига себе.
Var
x:real;
i:integer;
begin
x:=-3*pi;
for i:=1 to 6 do begin
Writeln(x:9:6,3*cos(x/3):16:6);
x:=x+0.8
end
end.
<u>Результат</u>
-9.424778 -3.000000
-8.624778 -2.893964
-7.824778 -2.583352
-7.024778 -2.090120
-6.224778 -1.449137
-5.424778 -0.705713
Ошибка не в условном операторе, а в операторе вывода.
Вероятно, забыли указать после запятой в операторе вывода имя переменной max.
writeln('Round(max)=',max)
PROGRAM A23;
const
max = 42;
var
с:array[1..max]of real;
x:integer;
i:byte;
BEGIN
writeln('Заполнить линейный массив по формуле c[i]=16*x-i/9-7');
write('Введите x='); readln(x);
writeln(' ');
writeln('Массив' );
for i:=1 to max do begin
с[i]:=16*x - i/9 -7;
write(с[i], ' ');
end;
END.