№1 заполните массив а нулями №2 заполните массив а первыми n натуральными числами начиная с 1 №3 заполните массив а первыми n натуральными числами начиная с х ( ввести х с клавиатуры) , заранее

Const n=10;
var
  a:array[1..n] of integer;
  i,x:integer;
begin
//Задание №1
  for i:=1 to n do begin
    a[i]:=0;write(a[i]:3);
  end;
  writeln;
 //Задание №2
 for i:=1 to n do begin
    a[i]:=i;write(a[i]:3);
  end;
 writeln;
 //Задание №3
  readln(x);
  for i:=1 to n do begin
    a[i]:=x+i-1;write(a[i]:3);
  end;
end.