.написать программу к схеме ​

Ответ:

См. объяснение

Объяснение:

Program summapousloviu;

Var i, s: integer;

Begin

 Writeln('Программа находит сумму чисел в промежутке [2; 8) с шагом 2:');

 s:=0;

 i:=2;

 While (i<>8) do

   begin

     s:=s+i;

     i:=i+2;

   end;

 Write('Сумма = ', s);

 Readln;

End.