Яку команду слід обрати для присвоення змінни S значення О?​

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

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

хай                                                                                                                                                                           

5`120`000 бит =  640 000 байт = 625 кб