Вычислите сумму первых n элементов 1-1/2+1/3-1/4+1/5-1/6+

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.