Найдите ошибки заполните пустые места var a: … [1..100] of integer; N: integer; //...

Question

Найдите ошибки заполните пустые места
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],' ');

Answer 1

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.

Answer 2

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.


проверил на паскале, работает