Free Pascal
Объяснение:
var
i, s : integer;
begin
s := 0;
for i := 5 to 8 do
s := s + i;
writeln('S=', s);
end.
