challenge-252/deadmarshal/pascal/ch2.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

program Ch2;

{$mode objfpc}
uses
  SysUtils;

procedure UniqueSumZero(constref N:Integer);
var I:Integer;
begin
  for I := 1 to N div 2 do Write(I,' ',-I,' ');
  if N mod 2 = 1 then Writeln(0);
end;

begin
  UniqueSumZero(5);
  UniqueSumZero(3);
  UniqueSumZero(1);
end.