Решите в системе паскаль сформировать массив и напечатать одномерной массой в состоящий из 10 чисел элементы вводятся с клавтатуры числа целые

Var massiv: array[1..10] of integer;var chislo,i: integer;begin    writeln('Введите 10 чисел с клавиатуры');    for i:=1 to 10 do begin        read(chislo);        massiv[i] := chislo;    end;    for i:=1 to 10 do        write(massiv[i],' ')end.