var n,m,s:longint;

begin

read(m);

while s<m do

begin

s;=s+n;

n:=n+1;

end;

writeln('so n nho nhat la: ',n-1);

readln

end.

Python:

m = int(input("Nhap m = "))

s = 0

n = 0

while s <= m:

  n += 1

  s += n

print(f'n nho nhat thoa man tong cua n so dau lon hon {m} la {n}')

C++:

#include <iostream>

using namespace std;

int main()

{

  long long n, m, s;

  cout << "Nhap m = "; cin >> m;

  n = s = 0;

  while (s <= m)

  {

    ++n;

    s += n;

  }

  cout << "n nho nhat thoa man tong cua n so dau lon hon " << m << " la " << n;

  return 0;

}

Pascal:

uses crt;

var m, n, s: longint;

begin

  clrscr;

  write('Nhap m = '); readln(m);

  n := 0;

  s := 0;

  while s <= m do begin

    n := n + 1;

    s := s + n;

  end;

  writeln('n nho nhat thoa man tong cua n so dau lon hon ', m, ' la ', n);

  readln;

end.