Составить 2 предложение по схеме глагол прилагательное существительное

золотые часы  восхищенья.Мерцали волшебные искры костра. 

Сияли яркие огни.
Взошло утренне солнце.

Var        
R1, R2, R3, S1, S2, S3: Integer;        
begin             
writeln('Введите размеры рации и чемодана');             
readln(R1, R2, R3, S1, S2, S3);             
 if ((R1 < S1) and (R2 < S2) and (R3 < S3)) or             
((R3 < S3) and (R2 < S1) and (R1 < S2)) or             
((R1 < S1) and (R2 < S3) and (R3 < S3)) or             
((R2 < S2) and (R1 < S3) and (R3 < S1)) or             
 ((R2 < S1) and (R3 < S2) and (R1 < S3)) or             
((R1 < S2) and (R3 < S1) and (R2 < S3)) then
WriteLn('ПОМЕЩАЕТСЯ')  
 else
WriteLn('НЕ ПОМЕЩАЕТСЯ');
end.

1) program X;
var 
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
  Begin 
 B[i]:= -10+random(25);
 write (B[i]:4);
 end;
 writeln;
 writeln('новый массив');
  begin
   for i:=1 to n do 
if B[i] mod 2=0    then 
begin 
g:=i; 
B[i]:=g; 
   write (B[i]:4);
 end;
 end; 
    End.

2) program X;
var 
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do 
 Begin 
 B[i]:= -10+random(25);
 write (B[i]:4); 
end;
 writeln; 
writeln('новый массив');
  begin   for i:=1 to n do 
if (B[i] mod 2=0) and (i mod 2<>0)   
 then
 begin
 g:=i; 
 B[i]:=g;    
write (B[i]:4);
 end;
 end; 
    End.