program Summa;
var
i: Integer;
s: Double;
begin
s := 0;
for i := 1 to 5 do begin
s := s + i / 3;
end;
WriteLn ('Сумма = ', s :15 :10);
ReadLn;
end.
