65 ! умные люди которые знают как это делать,

ответ:

1.абек 2.авек 3.агк 4.агжк 5.аджк 6.абвек 7.абвгк 8.абвгжк 9.адгк

объяснение:

1.абек 2.авек 3.агкк 4.аджк 6.абвек 7.абвгк 8.адгк 9.авгк 10.авк

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);