Написать программу выводящую все элементы массива сформированного по условию for i := 1 to 7 do A[i] :=1

var a:array[1..7] of integer;

i: integer;

begin

for i:=1 to 7 do

begin

a[i]:=1;

write (a[i]:3)

end

end.