Program h2;
const
n=20;
var i:integer;
s:real;
begin
for i:=2 to n do
begin
if (i mod 2=0) then s:=s+1/i;
end;
writeln(s);
end.
Он возвращает абсолютную величину параметра, это модуль числа, следовательно значение этого выражения 9,7
Program zadacha;
Var n,ch:integer;
Begin
Writeln('vvedit n');
Readln(n);
ch:=(n-5)/2;
Writeln('ch',ch);
End.