var
  n, i :longint;
  x :array[1..100] of longint;
begin
  n:=0;
  writeln('Seka:');
  repeat
    n:=n+1;
    read(x[n]);
    x[n]:=(-1)*x[n];
  until x[n]=0;
  writeln('Pradine seka:');
  for i:=1 to n-1 do write((-1)*x[i],' ');
  writeln('Gauta seka:');
  for i:=1 to n-1 do write(x[i],' ');
end.