Написать программу на паскале абс цикл с постусловием дано целое число n (> 1). вывести наименьшее из целых чисел k, для которых сумма 1 + 2 + … + k будет больше или равна n, и саму эту сумму.

Var n,k,summ:integer;
begin
  write('Введи число N: ');
  readln(n);
  repeat begin
     k:=k+1;
     summ:=summ+k;
     end;
  until summ>=n;
  writeln('K=',k,', 1+..+',k,'=',summ,', ',summ,'>=',N);
end.