Ответ:

Free Pascal

Объяснение:

var

 i, s : integer;

begin

 s := 0;

 for i := 5 to 8 do

   s := s + i;

 writeln('S=', s);

end.