program Tongnhonha

var
  N, Sum, i: Integer;

begin
  N := 1;
  Sum := 0;
  
  { Tìm số tự nhiên đầu tiên sao cho tổng lớn hơn 50 }
  while Sum <= 50 do
  begin
    Sum := Sum + N;
    N := N + 1;
  end;
  
  { Giảm N đi 1 vì N hiện tại là số tự nhiên đầu tiên mà tổng lớn hơn 50 }
  N := N - 1;
  
  { In ra N số tự nhiên đầu tiên và tổng của chúng }
  writeln('N = ', N);
  write('Sum = ');
  
  for i := 1 to N do
  begin
    write(i);
    if i < N then
    begin
      write(' + ');
    end;
  end;
  
  writeln(' = ', Sum);
end.