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

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