Найдите ошибки заполните пустые места
var
a: … [1..100] of integer;
N: integer; // Количество элементов в массиве
i: real;
begin
…('Введите количество элементов в массиве: ');
readln(N);
write('Введите элементы массива: ');
… i:=1 to N do
read(a[i]);
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');

var    a: array [1..100] of integer;    i,N: integer; // Количество элементов в массиве begin    writeln('Введите количество элементов в массиве: ');    readln(N);    write('Введите элементы массива: ');    for i:=1 to N do      read(a[i]);    write('Вывод элементов массива: ');    for i:=1 to N do    write(a[i],' ');end.

Vara: array [1..100] of integer; N: integer; // Количество элементов в массиве i: integer; begin writeln('Введите количество элементов в массиве: '); readln(N); write('Введите элементы массива: '); for i:=1 to N do read(a[i]); write('Вывод элементов массива: '); for i:=1 to N do write(a[i],' ');end.проверил на паскале, работает