Дан фрагмент блок-схемы для поиска наименьшего натурального числа к, квадрат которого превышает заданное натуральное число n. какое условие необходимо добавить в логический блок, чтобы данный фрагмент был верным?

If (K*K > N) and ((K-1)*(K-1) < N) then write (K);

А)1000010100  складываем по 1 биту по правилу 1+0=1,1+1=10,0+0=0 Если 
 +                   получается 10,то берем единицу и прибавляем к биту 
   1101010101  находящемуся левее
 10101101001
Г) 1430,2 здесь складываем как в десятичной, но если получается больше 7, то,
+             если это 8,то переносим 1 в разряд левее, в другом случае из числа 
     666,3  
        2316,5 вычитаем 8 переносим 1 и оставляем в этом разряде, то что осталось от вычитания
 Д)  388,3   
     +             
 209,4
      591,7
Тут тоже, что с восьмеричной только, если получилось 16, то переносим 1 , а если больше, то вычитаем

//Pascal
var
  S: string;
  i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
if ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then
begin
  Count := Count + 1;
  Delete(s,i,1);
end;
writeln('Количество цифр кратных трем = ', Count);    
writeln('Строка после удаления = ', S);
end.

//FreePascal/Delphi/PascalABC.NET(v3.3.1590)
{$MODE OBJFPC} //В PascalABC.NET можно убрать
uses SysUtils; //В PascalABC.NET можно убрать
var
  S: string;
  i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
try
if StrToInt(S[i]) mod 3 = 0 then
begin
  Count := Count + 1;
  Delete(s,i,1);
end;
except
end;
writeln('Количество цифр кратных трем = ', Count);   
writeln('Строка после удаления = ', S);
end.