Написал код, который выдаёт ошибку, в чем проблема? program n_2;
var
i: integer;
a: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(100);
for i:=1 to 10 do
writeln('a[', i,']=', a[i]);
end.

Трёхмерная графика — раздел компьютерной графики, посвящённый методам создания изображений или видео путём моделирования объёмных объектов в трёхмерном пространстве.

3D-моделирование — процесс создания трёхмерной модели объекта. Задача 3D-моделирования — разработать зрительный объёмный образ желаемого объекта. При этом модель может как соответствовать объектам из реального мира (автомобили, здания, ураган, астероид), так и быть полностью абстрактной (проекция четырёхмерного фрактала).

Графическое изображение трёхмерных объектов отличается тем, что включает построение геометрической проекции трёхмерной модели сцены на плоскость (например, экран компьютера) с специализированных программ. Однако с созданием и внедрением 3D-дисплеев и 3D-принтеров трёхмерная графика не обязательно включает в себя проецирование на плоскость.

Извини, на второй вопрос не могу дать ответ(((

Объяснение:

1)var

 s1, s2: string;

 i: byte;

begin

 write('s1 = ');

 readln(s1);//вводим слово S1

 S2 := ''; //начальное значание слова s2 (пустая строка)

 for i := 1 to Length(s1) do

   if odd(i + 1) then S2 := S2 + S1[i];//если i - четно, то увеличиваем s2

 writeln('S2 = ', S2)

end.

2)var

 s, s1: string;

 i: integer;

begin

 i := 1;

 s1 := '';

 write('Введите предложение: ');

 readln(s);

 while i <= length(s) do

 begin

   if (s[i] = ',') and (i mod 2 <> 0) then

   else s1 += s[i];

   inc(i)

 end;

 writeln('Полученное предложение: ', s1);

 writeln('Кол-во удаленных ",": ', length(s) - length(s1));

end.