ано целое число N (>0). найти наименьшее целое положительное число K, квадрат которого превосходит N: K^2>N. функцию извлечения квадратного корня не использовать. Решить через repeat

program n_1;var N, K:integer; beginwriteln; write(' N = '); readln(N); K := 1;  repeat K:=k+1;;until K * K > N; writeln; writeln('Ответ: ', K); end.