Дано целое число N (> 0). Найти наибольшее целое число K, квадрат которого не превосходит N: K2 ≤ N — Pascal(Паскаль)

program Project1;
 
var
  X, Y : Extended;
  S : String;
begin
  repeat
    Writeln('Задайте неотрицательное число Y:');
    Readln(Y);
    if Y < 0 then begin
      Writeln('Число должно быть неотрицательным. Повторите ввод.');
      Continue;
    end;
 
    X := 1;
    while X * X  <= Y do begin
      X := X + 1;
    end;
    X := X - 1;
 
    Writeln('X = ', X:0:10);
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

uses crt;
var n,k:longint;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
k:=0;
while k*k<n do k:=k+1;
if k*k>n then k:=k-1;
writeln('k=',k,' k^2=',k*k);
readln
end.