Подсчитать сумму всех частных от деления на 3 чисел в интервале от 1 до 5 на Pascal

Ответ:

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.