Помогите составить программу, язык паскаль пожалуйста

Про рандом не помню как пишется но вот дальше. 2) {1}for i:=1 to 10 do write(a[i],);     {2}for i:=1 to 10 do writeln(a[i]); 3)for i:=1 to 10 do k:=k+i;    write(k/10); 4)for i:=1 to 10 do     if a[i]=4 then inc(q);     write(q);