program Project1;
var x1,x0,i,j,k,m,x2:integer;

function monus(x,y:integer):integer;
begin
if x>y then monus:=x-y else monus:=0;
end;

procedure start;
begin
writeln('Zahl >=0 eingeben oder -1');
readln(x1);
if not (x1=-1) then
begin

x0:=0;
x2:=0;
x2:=x2+1;

For k:=1 to x1 Do
  begin

  For i:=1 to monus(1,monus(x1,x2)) Do
    begin
    For j:=1 to monus(1,monus(x2,x1)) Do
      begin
      x0 := x0+1;
      end;
    end;


  For m:=1 to x2 DO
    begin
    x2:=x2+1;
    x2:=x2+1;
    end;
  end;

writeln('Antwort: ',x0);
start()
end;
end;

begin
start()
end.