program SumS;vari: real;S: real;
beginS := 0;
for i := 5.6 to 9.7 step 0.3 dobeginS := S + i;end;
writeln('Сумма равна: ', S);end.
program SumS;
var
i: real;
S: real;
begin
S := 0;
for i := 5.6 to 9.7 step 0.3 do
begin
S := S + i;
end;
writeln('Сумма равна: ', S);
end.