Решите задачу на языке Pascal, применяя цикл с предусловием
Дано целое положительное число N. Найти наименьшее целое положительное число K, квадрат которого превосходит N. Функцию извлечения квадратного корня не использовать.

var lf,rt,n,k: integer;begin  write('N = ');  readln(n);  lf:=1;  rt:=n;  while (lf+1<rt) do  begin    k:=(lf+rt) shr 1;    if k*k>n then rt:=k    else lf:=k;  end;  writeln('k = ',rt);end.Ввод - выводN = 139847k = 374

Program n1;var n,k,i: integer;beginwrite('Введите n: ');readln(n);k:=0;while k*k<n+1 do k:=k+1;writeln(k);end.