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

Про рандом не помню как пишется но вот дальше.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);