Помогите пожалуйста с этим заданием.
Вывести на экран количество последовательных натуральных чисел (начиная с 1), необходимых для того, чтобы их сумма была больше какого-либо введённого пользователем n.(писать на паскале)

Вот примерно:Program P1;uses crt;var i, sum: integer; n: real;beginclrscr;i:=0;sum:=0;write ('Введите число: ');readln (n);repeati:=i+1;sum:=sum+i;write (' ', i);until sum>n;readkey;end.