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

program rost;var a:array[1..30] of integer; n:integer;beginwriteln('Введите количество учеников');read(n);for i:=1 to n doread(a[i]);write(a,'[i]');end.Ну как то так.