Верны ли следующие суждения о правовом статусе несовершеннолетних? А. Несовершеннолетние могут участвовать в выборах в качестве кандидатов.

1. Program enot;
Var A: array[1..8] of real;
 i:integer;
begin
for i:= 1 to 8 do
begin
a[i]:=random(41)-20;
writeln(a[i]:8:3);
end;
end.

2. Program fg;
Var a: array [1..13] of integer;
i:integer;
begin
writeln('первоночальный массив: ');
for i:= 1 to 13 do
begin
a[i]:=random(13)+5;
writeln(a[i], ' ');
end;
writeln('получившийся  массив: ');
for i:= 13 downto 1 do
writeln(a[i],' ');
end.

3. 
Program enot;
Var a: array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
end.