Составить программу,позволяющую ввести с клавиатуры данные о росте учеников в классе в массиве и вывести на экран

var a: array [1..1000] of integer; n: integer; i: integer;begin write(\'Введите количество учеников =\'); readln(n); for i:=1 to n do begin write(\'Рост ученика №\', i ); readln( a[i] ); end; writeln; writeln(\'Рост всех учеников класса\'); for i:=1 to n do write( a[i], \' , \');end. Данные о росте учеников хранятся в массиве \"а[]\". Т.к. количество учеников не известно, то размерность массива взята с избытком - 1000 элементов хватит для любого класса. Количество учеников хранится в переменной \"n\". В первом цикле идет заполнение массива, где каждый элемент, это рост очередного ученика. А во втором цикле из массива выводятся на экран через запятую рост всех учеников.