Решите задачу в системе Паскаль

сформировать массив и напечатать одномерной массой в состоящий из 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.