УМОЛЯЮ,ПОМОГИТЕ!
1)Составить программу вывода на экран одномерного массива из пяти чисел,заполненного с клавиатуры

2)Составить программу вывода на экран одномерного массива из пяти чисел(числа в интервале от 0 до 100),заполненного случайным образом

3)найти минимальный элемент массива использованный случайным образом

Помогите пожалуйста.....

1)constn1=1000;typemas=array[1..n1] of integer;vara:mas;n,i:integer;beginreadln(n);for i:=1 to n do read(a[i]);for i:=1 to n do write(a[i],' ');writeln;end.А вторую и третью я объединила:constn1=1000;typemas=array[1..n1] of integer;vara:mas;i,min:integer;beginrandomize;for i:=1 to 5 do a[i]:=random(101)+0;for i:=1 to 5 do write(a[i],' ');writeln; min:=a[1];for i:=2 to 5 do if a[i]<min then min:=a[i];writeln(min); end.