Всё надо делать в паскале1)Дан массив размерностью 10. Заполните массив целыми

1)
const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
    for i:=1 to n do
         read(a[i]);
writeln;
   for i:=1 to n do
         write(a[i]:4);
end.

2)
var
a:array[1..1000]of real;
i,n:integer;
begin
 writeln('n ?');
 readln(n);
    for i:=1 to n do
       begin
         writeln('INPUT ',i,' элемент');
         readln(a[i]);
       end;
writeln;
   for i:=1 to n do
         write(a[i]:4:2);
end.
3)
var
a:array[1..1000]of real;
i,n:integer;
begin
 writeln('n ?');
 readln(n);
    for i:=1 to n do
       begin
         a[i]:=random;
          write(a[i]:4:2);
       end;
writeln;
end.