Помгите информатика ​

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

var

x: real;

begin

readln(x);

writeln(round(x));

end.

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495

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.