program svs;
var
a,b:integer;
begin
a:= 1;
b:= 2;
while a > 0 do
b:= b - 2;
a:= a + b;
end;
b:= a + b;
writeln(b);
writeln(a);
end.
program svs;
var
a,b:integer;
begin
a:= 1;
b:= 2;
while a > 0 do
begin
b:= b - 2;
a:= a + b;
end;
b:= a + b;
writeln(b);
writeln(a);
end.