помогите пожалуйста написать программу в паскале "дано целое число N (>0). Найти наибольшее целое число К, квадрат которого не превосходит N : K^2 <= N. функцию извлечения квадратного корня не использовать. " (используя оператор while) ребята, ВЫРУЧАЙТЕ!!!!

var N,k:integer;begin  writeln('введите N');  readln(N); K:=n div 2;  while k*k>N do    k:=k-1;  writeln(k);end.{Возможны и другие варианты}