Помогите решить. Все задачи. Через паскаль

1)uses crt;var s,i:integer;a:array [1..5] of integer;beginfor i:=1 to 5 do begina[i]:=random(10-1+1)+1;write (a[i], );end;writeln;for i:=1 to 5 do begina[i]:=a[i]-20;write(a[i], );end;end.