Var A: array [1..34] of integer;
i :integer;
beginfor i:=1 to 34 do begin
writeln('введите число');
readln(A[i]);
end;
for i:=1 to 34 do write(a[i],' ');
end.
Оного только понять немогу. чего это ваш преподаватель всего 34 символа в массив решил забить ( числа вводит пользователь). может сразу пару-тройку тысяч, чтоб на пару уроков хватило забивать.