Дано: writeln (s:6:2);
Если s=113,08991, то на экране появится

113,09

Объяснение:

австрия - вена

бельгия- брюссель

великобритания-лондон

германия-берлин

ирландия-дублин

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;