program Summation;
varsum: Real;
beginsum := 1/3 + 1/5 + 1/8 + 1/13;
writeln('Сумма 1/3 + 1/5 + 1/8 + 1/13 равна: ', sum:0:2);end.
program Summation;
var
sum: Real;
begin
sum := 1/3 + 1/5 + 1/8 + 1/13;
writeln('Сумма 1/3 + 1/5 + 1/8 + 1/13 равна: ', sum:0:2);
end.