Составить программку вычисления количества естественных нечётных чисел сумма квадратов которых

Какое-то задание некорректное. Квадратный корень из 1000 это 31 с излишком. Хоть какое из нечетных чисел 1,3,5, ... 31 даст значение наименьшее 1000. Любые два из этих 16 чисел могут быть задействованы в получении суммы их квадратов, не превосходящей 1000.

Так....теперь переплата... и как её считать?

Да, пробовал различными циклами. Приходится удалять последне вычесление

Если идти в лоб и ложить квадраты нечетных

Про переплату влетело сообщение из другого вопроса....просо чудеса

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var
  a, s, n: integer;
begin
  while s lt; 1000 do
  begin
    if a mod 2 lt;gt; 0 then begin
      s := s + sqr(a);
      n := n + 1;
    end;
    a := a + 1;
  end;
  writeln(n-1);
end.