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

Вариант через рандом - рост задается сам

var A: array of integer;

N, i: integer;

begin

write ('Введите количество учеников в классе: ') ;

readln (N) ;

SetLength (A, N) ;

for i : = 0 to N - 1 do

begin

A[ i ] : = random (200) mod 1000;

writeln ('Рост ', i + 1, ' ученика: ', A[ i ]) ;

end;

end.

Program rost;

var a:array[1 ... 30] of integer; n:integer;

begin

writeln ('Введите количество учеников') ;

read (n) ;

for i:=1 to n do

read (a[i]) ;

write (a,'[i]') ;

end.

Ну как то так.